Что будет выведено на экран
Program p1;
Var a,b: integer;
Begin
B:=5
For a:=1 to b-2 do b:=b-a;
Writeln(b);
End.
​

zhanara0507    1   14.04.2020 13:23    7