Вопрос школьника по предмету Информатика
Помогите,пожалуйста
найти произведение чисел от N до 1
паскаль abc
Ответ учителя по предмету Информатика
Var
N:integer;
P:real;
Begin
P:=1;
Write(‘N = ‘);
ReadLn(N);
For N:= N downto 2 do
P:=P*N;
Write(‘P = ‘,P);
End.
Пример работы программы:
N = 13
P = 6227020800
Похожие вопросы от пользователей