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

839010 839010    1   22.09.2019 23:01    0

Ответы
Сенсей14 Сенсей14  08.10.2020 10:51
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var n:=ReadInteger('n=');
write(n,'!=',range(1,n).Aggregate(Real(1),(a,b)->a*b));
end.
ПОКАЗАТЬ ОТВЕТЫ
ktjy123 ktjy123  08.10.2020 10:51
Var a,b: integer; begin   b := 1;   Readln(a);   for var i := 1 to a do    b := b * i;    Writeln(b); end. 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика