Используя алгоритмический язык, составить алгоритм суммы 10 натуральных чисел. (Желательно Паскаль) Помогите,пожалуйста!
Ответы
Ответ дал:
0
declare Sum
declare i
Sum = 0
for i = 1 to 10
begin
Sum += i
i++
end
Print Sum
Ответ дал:
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.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад
9 лет назад