Question

Составьте программу на языке Паскаля

Answer 1

Ответ:

Free Pascal

var

 x,y:integer;

begin

 x:= 10;

 y:=2;

 repeat

   x:= x-2;

   y:=y-2;

 until x<=-2;

 writeln(x, y);

end.

>>> -2   -10