1) Проанализируй и напиши программу на языке Паскаль.

Вычислить n!, если значение n пользователь вводит с клавиатуры.

Если n=1, то на экране выводится n!=

2) Запиши программу на языке Паскаль.

Определить, является ли число, введенное с клавиатуры простым.

1:

var n:integer; otvet:real;

begin

writeln ('Введи n:') ;

readln (n) ;

otvet:=1;

for var i:=1 to n do otvet:=otvet*i;

writeln ('n!=', otvet) ;

end.

2:

var n:integer; otvet:real; prostoe:boolean;

begin

writeln ('Введи n:') ;

readln (n) ;

prostoe:=true;

for var i:=2 to n-1 do if n mod i = 0 then

begin

writeln (n, ' Не простое, делится на ', i) ;

prostoe:=false;

exit;

end;

if prostoe then writeln (n, ' Простое') ;

end.