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

Question

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

Comments

именно так написано? P там не должно быть

---

да

Answer 1

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

---