Составьте программу в паскале Пожалуйста !!! Подсчитать произведение первых семнадцати...

Question

Составьте программу в паскале Пожалуйста !!!
Подсчитать произведение первых семнадцати целых положительных чисел

Answer 1

Var i : integer; p:int64;
begin
p:=1;
for i:=1 to 17 do p:=p*i;
writeln(p);
end.

Comments

Потому что значение р получается больше, чем диапазон для значений типа integer.

---

диапазон для целых -2147483648..2147483647. Лучше будет не real, а p:int64;

---

Напишите пожалуйста правильную программу

---

var i : integer; p:int64;
begin
p:=1;
for i:=1 to 17 do p:=p*i;
writeln(p);
end.

---

Но ,мы так в школе не пишем p:int64;