Вопрос-ответ
Написать программу , которая подсчитывает произведение натуральных чисел от 1 до n ....
В 16:25 поступил вопрос в раздел Информатика.
Вопрос, который вызвал трудности
Написать программу , которая подсчитывает произведение натуральных чисел от 1 до n . ПОМОГИТЕ!!!!!!!!
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(1,ReadInteger('n=')).Aggregate(Real(1),(x,y)->x*y));
end.
Var
i, n: integer;
P: real;
Begin
Write('n = ');
ReadLn(n);
P := 1;
For i := 1 to N do
P := P * i;
WriteLn('P = ',P);
End.