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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
