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

Question

Информатика

Дарина

31 июля, 18:11

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

+2

Ответы (1)

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

Азелла · Answer 1

Var i, n, s:integer;

begin

write ('Введите n: ') ;

readln (n) ;

for i:=1 to n do

s:=s+i;

writeln ('Сумма всех чисел от 1 до ', n,' равна ', s) ;

end.