zemkaaa1

18.10.2020 04:33 •  Информатика

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