Напишите программу, которая подсчитает сумму натуральных чисел от 1 до n

Вот пример из задачи:

Написать пр-му, которая выводит все натуральные числа от 1 до n

Program zd;

var i, n: integer;

Begin

Writeln ('Введите n') ;

readln (n) ;

for i:=i to n do

begin

writeln (i,' ') ;

end;

end.

Question

Сарра

1 ноября, 21:41

+1

Ответы (1)

Знаете ответ на вопрос?

Клим · Answer 1

Program n1;

var n, sum, i: integer;

begin

readln (n) ;

sum:=0;

for i:=1 to n do sum:=sum+i;

write ('сумма: ', sum) ;

end.