ПОВТОРЯТЬ

s = s + i;

i = i + 1;

ДО (i > 100);

Программа:

Program Gauss;

Uses CRT;

Var i, s : Word;

Begin

ClrScr;

s := 0;

i := 1;

Repeat

s := s + i;

i := i + 1;

Until (i>100);

WriteLn(‘s = ‘, s);

ReadLn;

End.

2. вычислить сумму s всех цифр заданного натурального числа n

a. обнуляем сумму s ,

b. берем последнюю цифру числа, для чего определяем остаток от деления исходного числа на 10: i = n Mod 10,

c. добавляем в сумму найденную цифру: s = s + i,

d. уменьшаем число в 10 раз: n = n Div 10,

e. повторяем цикл до тех пор, пока n = 0 – это и будет условием выхода из цикла.

Схема алгоритма: Программа:

Program Sum;