Решите информатику:
1)
Var a, b, c: integer;
Begin
a:=63;
b:=237;
c:= 35;
While (a+c) Begin
a:=a+6;
c:=c+4;
b:=b-10;
End.
Определи чему равна переменная b.
2)
Var x, y: integer;
Begin
x:=0;
y:=17;
While x Begin
x:=(x+1)*2;
End.
Определи чему равна переменная x.

istamov9777    3   08.04.2020 11:54    5