Maghma
5 год назад
Пожалуйста посчитайте,пожалуйстанайти произведение чисел от N до 1паскаль abc
ОТВЕТЫ
Давид
Oct 24, 2020
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
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
59
