Написать программу нахождения суммы всех положительных - вопрос №8545993 от 89523203663 29.09.2021 03:19

Question

Информатика: Написать программу нахождения суммы всех положительных целых чисел, не превышающих данного натурального числа n, используя цикл с параметром.

89523203663 · Answer

Varsum, i, n:integer;begin  read(n);  for i:= 1 to n do    sum:= sum + i;  Writeln(sum);    end....