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

0 голосов
47 просмотров

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

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


Информатика (22 баллов) | 47 просмотров
Дан 1 ответ
0 голосов

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.

(814 баллов)