Не совсем понятно, что вы подразумевается под (с русским)
var
x,y:integer;
begin
readln(x,y);
while y<=10 do
if x<=y then
x:=x+1;
y:=y-1;
end
else begin
x:=x-5;
y:=y+5;
end;
writeln(x,' ',y);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Не совсем понятно, что вы подразумевается под (с русским)
var
x,y:integer;
begin
readln(x,y);
while y<=10 do
begin
if x<=y then
begin
x:=x+1;
y:=y-1;
end
else begin
x:=x-5;
y:=y+5;
end;
end;
writeln(x,' ',y);
end.