Сооставие програму которая вычесляет произведения чисел от 2 до 10 ** турбопаскаль

Question

Сооставие програму которая вычесляет произведения чисел от 2 до 10 на турбопаскаль

Comments

Эти решения не верны, можете проверить в калькуляторе.

Answer 1

var i, s: integer;
begin
s:=1;
for i:=2 to 10 do
s:=s*i;
writeln(s);
end.

Comments

еще есть варианты, она просто не запускается

---

Ты перед моим кодом вставь: "Program <название>;"

---

Решение неправильно.

---

Ой. решение правильное, просто переменная integer может хранить лишь в диапазоне от -32768 до +32767

---

Вместо integer напишите longint

---

И оба в одну лужу :D