:

Program p3A;
var a,b:integer;
begin
a:=1; b:=1;
while a+b <8 do begin
a:=a+1; b:=b+2:
end;
Writeln (a+b);
end.

Баянсулу11    2   21.04.2020 13:50    0