Постройте трассировочную таблицу (Паскаль) var i, n, m: integer; begin write('введите...

Question

Постройте трассировочную таблицу (Паскаль)

var
i, n, m: integer;
begin
write('введите любое натуральное число: ');
readln(n);
for i:=1 to n do
begin
m:=m+i;
end;
writeln('сумма всех натуральных чисел не превышающих ',n,' - ',m);
end

Comments

Нигде случайно m не пропущено до цикла? А то оно нигде на задается!

---

Нет, не пропущено. На Паскале всё проверял

Answer 1

Таблица в приложении ========

Comments

Спасибо вам большое :)