Question

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

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.