Question

1Напечатайте 20 первых степеней числа 2.2Найдите минимальное из N чисел.3 Дано натуральное число. Выяснить, является ли оно простым, т.е. делится только на 1 и на само себя.На языке Паскаль. ​

Answer 1

Задание 1:

var i:integer;

begin

   for i:=1 to 20 do writeln('2^',i,'=',exp(i*ln(2)):0:0)

end.

Задание 2:

Мало деталей...N чисел вводятся вручную или они генерятся автоматически рандомно?

var i,min,n,x:integer;

begin

   min:=9999;

   write('Количество чисел: '); readln(n);

   for i:=1 to n do begin

       write('Введите ',i,'-е число: '); readln(x);

       if x < min then min:=x

   end;

   write('Минимальное из введённых чисел равно ', min);

end.

Задание 3:

var i,x:integer;

   chk:boolean;

begin

   chk:=True;

   write('Введите натуральное число: '); readln(x);

   for i:=2 to x-1 do begin

       if x mod i = 0 then begin

           chk:=False;

           break;

       end;

   end;

   if chk = True then write('Введённое число является простым.')

   else write('Введённое число не является простым.');

end.

Answer 2

1.
2.2^1 = 2.2
2.2^2 = 4.84
2.2^3 = 10.648
2.2^4 = 23.4256
2.2^5 = 51.53632
2.2^6 = 113.379584
2.2^7 = 249.4350768
2.2^8 = 548.7571696
2.2^9 = 1206.26577312
2.2^10 = 2653.784700864
2.2^11 = 5838.3263419
2.2^12 = 12843.518951008
2.2^13 = 28255.741692218
2.2^14 = 62162.63172288
2.2^15 = 136758.7907891379
2.2^16 = 300868.3407361038
2.2^17 = 661910.3486194282
2.2^18 = 1453602.766961542
2.2^19 = 3197925.086315394
2.2^20 = 7035425.189894869

2. Для нахождения минимального из N чисел нужно сравнить каждое число с другими и найти наименьшее. С помощью цикла можно записать следующий алгоритм:

var
N, i, num, min: integer;
begin
write('Введите количество чисел: ');
readln(N);
write('Введите первое число: ');
readln(num);
min := num;
for i := 2 to N do
begin
write('Введите следующее число: ');
readln(num);
if num < min then
min := num;
end;
writeln('Минимальное число: ', min);
end.

3. Для проверки, является ли заданное число простым, можно реализовать следующий алгоритм:

var
num, i: integer;
is_prime: boolean;
begin
writeln('Введите число: ');
readln(num);
is_prime := true; // предполагаем, что число простое
for i := 2 to num - 1 do
begin
if (num mod i) = 0 then
is_prime := false; // если число делится на что-то, кроме как 1 и само на себя, то оно не простое
end;
if is_prime then
writeln(num, ' - простое число')
else
writeln(num, ' - не простое число');
end.

Это достаточно простой алгоритм, но он неэффективен для больших значений N, поскольку он проверяет все числа в диапазоне от 2 до N-1. Более эффективные алгоритмы для проверки простоты числа существуют, но они достаточно сложны, и их реализация выходит за рамки данного задания.