Question

Используя алгоритмический язык, составить алгоритм суммы 10 натуральных чисел. (Желательно Паскаль) Помогите,пожалуйста!

Answer 1

program summation;

var i, summa: Word;

begin

summa := 0;

for i := 1 to 10 do  

summa := summa + i;

WriteLn('l + 2 + .+ 10 = ', summa);

end.