Постройте трассировочную таблицу (Паскаль)
var
i, n, m: integer;
begin
write(введите любое натуральное число: );
readln(n);
for i:=1 to n do
begin
m:=m+i;
end;
writeln(сумма всех натуральных чисел не превышающих ,n, - ,m);
end
Таблица в приложении ========
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
