Question

Вычитать из x и y пока x не станет равен 200 , если x=1000000 , y=100

Answer 1

Program ggg;var x,y: integer;beginx:= 1000000;y:= 100;while x>=200 do writeln(x-y);end.