Пж ответьте на 10ое, оч нужно пжжжжжж.
pascal abc
var x,y:integer;
begin
readln(x,y);
if (x>y) and (x
x:=x*2;
y:=y*2;
end
else begin
x:=x+2;
y:=y+2;
end;
writeln(x,y)
end.
чувак в с++
пж
чувааак пж в с++
чувак пожалуйста напиши в с++ если ты шарииишььь