Question

ВЫЧИСЛИТЕ ПРОИЗВЕДЕНИЕ НАТУРАЛЬНЫХ ЧИСЕЛ ОТ 1 до 8
var S, R, N: integer
begin N:=8
P:=1

Answer 1

Program Primer;
var
P,i: Integer;
begin
P:=1;
for i:=1 to 8 do
P:=P*i;
WriteLn('Произведение чисел Р=',P);
end.