Информатика, вопрос задал bolin81 , 7 лет назад

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

Ответы на вопрос

Ответил beluginak
0

declare Sum

declare i

Sum = 0

for i = 1 to 10

begin

Sum += i

i++

end

Print Sum


Ответил fjcdhjudevsvn
0

program summation;

var i, summa: Word;

begin

summa := 0;

for i := 1 to 10 do  

summa := summa + i;

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

end.

Новые вопросы