Написать программу нахождения суммы всех положительных - вопрос №8545768 от shakenovdarhan 18.10.2020 00:38

Question

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

shakenovdarhan · Answer

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