Написать программу нахождения суммы всех положительных - вопрос №8545768 от Zorozila90 06.10.2020 04:49

Question

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

Zorozila90 · Answer

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