Напиши программу на языке Паскаль и выведи ответ на экран.
Вычислить n!, если значение n пользователь вводит с клавиатуры.
Если n=0, то на экране выводится n!=
.
Ответы
Ответ дал:
0
Ответ:
program factorial;
var
n, i, s: integer;
begin
writeln('введите N');
read(n);
if (n=0) then
begin
writeln('n!=')
end
else
begin
s := 1;
for i := 1 to n do
s := s * i;
writeln('Факториал равен ',s);
end;
end.
Объяснение:
Ответ дал:
0
Ответ:
program Factorial;
var n, f, i: integer;
begin
f:=1;
wtiteln (‘введите n’);
readln (n);
if n=0 then writeln (‘n!=1’)
else begin
for i:=1 to n do
f:=f*i;
writeln (‘n!= ‘, f);
end;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад
7 лет назад