Question

ДАЮ 30 БАЛЛОВ
определите значение переменной B после выполнения фрагмента
алгоритма:

A:=7 B:=0
Да
A=1?
Нет
Нет
A:=A-15
B:= B+A
В ответе должно получится 21

Answer 1

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