Ответы
Ответ дал:
0
var x,y:integer;
begin
write('Введите "x" и "y": ');
read(x,y);
y:=y-x;
x:=x-2;
while x<=y do
begin
y:=y-x;
x:=x-2;
end;
write('Программа закончилась. x=',x,',y=',y);
end.
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад