Найти n!(n!=1*2*3*4*... *n) Число n запросить с клавиатуры

0 голосов
66 просмотров

Найти n!(n!=1*2*3*4*... *n) Число n запросить с клавиатуры


Информатика (220 баллов) | 66 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var n:=ReadInteger('n=');
write(n,'!=',range(1,n).Aggregate(Real(1),(a,b)->a*b));
end.

(149k баллов)
0 голосов

Var a,b: integer; begin   b := 1;   Readln(a);   for var i := 1 to a do    b := b * i;    Writeln(b); end. 

(94 баллов)