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.