Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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