1)Проанализируй и напиши программу на языке Паскаль. Вычислить n!, если значение n пользователь вводит с клавиатуры. Если n=1, то на экране выводится n!= 2)Запиши программу на языке Паскаль. Определить, является ли число, введе...
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.
Не нашли ответ?
Похожие вопросы