ПОМОГИТЕ С АЛГОРИТМОМ ОН ЛЁГКИЙ

Question

ПОМОГИТЕ С АЛГОРИТМОМ ОН ЛЁГКИЙ

---

Comments

Написать на паскале?

---

a = 2, b = 0;Вопрос: а = 7?Если да: Закончить.Если нет: Прибавить к "a" единичку, а к "b" прибавить "a"**Причем, прошу заметить, сначала мы прибавляем к "a" единичку, а потом прибавляем к "b" "a"!!! Это важно!Поехали.а=2, б = 0.а = 7? нет >> а = 3, б = 3.а = 7? нет >> а = 4, б = 7.а = 7? нет >> а = 5, б = 12.а = 7? нет >> а = 6, б = 18.а = 7? нет >> а = 7, б = 25.а = 7? Да. >> Конец.Ответ: а = 7, б = 25.

---

Если просили написать программу на языке Pascal, соответствующую алгоритму:Var a,b:integer;Begina:=2;b:=0;while(a<>7) dobegin;a:=a+1;b:=b+a;end;writeln('a = ',a,' b = ',b);readln(a);end.//Скриншот с результатом работы не могу залить, ответы закрыты

Answer 1

Если прописать в паскаль этот алгоритм через цикл while (цикл с предусловием), то ответ будет B=25.

var  a, b: integer;
begin
a := 2;
b := 0;
while a <> 7 do
begin
a := a + 1;
b := b + a;
end;
writeln(b);
end.

---