Известен факториал числа n. Найти это число (факториал числа n равен 1 • 2 •... • n). В ПАСКАЛЕ
Program lol(input, output);
var a, I:real;
begin
read (a);
I:=1;
while a <> 1 do
begin
a:=a/I;
I:=I+1;
end;
writeln (I-1);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Program lol(input, output);
var a, I:real;
begin
read (a);
I:=1;
while a <> 1 do
begin
a:=a/I;
I:=I+1;
end;
writeln (I-1);
end.