Ответы
Ответ дал:
0
18
var
x,y : integer;
begin
readln (x,y);
if x < y then
x := x +1
else
begin
x := x * 10;
y := y * 10;
end;
writeln (x,' ',y);
end.
var
x,y : integer;
begin
readln (x,y);
if x < y then
x := x +1
else
begin
x := x * 10;
y := y * 10;
end;
writeln (x,' ',y);
end.
Ответ дал:
0
а 17 сможешь?
Вас заинтересует
2 года назад
8 лет назад
10 лет назад
10 лет назад