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

Question

Мстислава

12 мая, 10:56

+2

Ответы (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.