Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих данного заданного числа N. Напишите программу на Паскале. P. S. Тема урока - программирование циклов

Question

Антониныч

30 октября, 21:48

+1

Ответы (1)

Знаешь ответ?

Иаким · Answer 1

var sum, n, i:integer;

begin

readln (n);

sum:=0;

for i:=1 to n do

sum:=sum+i;

writeln (sum);

readln;

end.