ДАЮ 30 БАЛЛОВ определите значение переменной B после выполнения фрагмента алгоритма: A:=7 B:=0 Да A=1? Нет Нет A:=A-15 B:= B+A В ответе должно получится 21
Var a,b: integer; begin a:=7; b:=0; while a<=1 then do<br>begin a:=a-15; b:=b+a; end; writeln(b); end.