Задание 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;
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);
Задание 3:
var i,x:integer;
chk:boolean;
chk:=True;
write('Введите натуральное число: '); readln(x);
for i:=2 to x-1 do begin
if x mod i = 0 then begin
chk:=False;
break;
if chk = True then write('Введённое число является простым.')
else write('Введённое число не является простым.');
Задание 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.