Ответы
Ответ дал:
1
var a, b, c : longint;
begin
read (a, b);
if (a>b) then
begin
c:=a;
a:=a*b;
b:=c+b;
end else
if (b>a) then
begin
c:=b;
b:=a*b;
a:=c+a;
end;
writeln (a, ' ', b);
end.
Должно работать, не проверял)
begin
read (a, b);
if (a>b) then
begin
c:=a;
a:=a*b;
b:=c+b;
end else
if (b>a) then
begin
c:=b;
b:=a*b;
a:=c+a;
end;
writeln (a, ' ', b);
end.
Должно работать, не проверял)
ja1337228:
беру два числа 3 и 2
Вас заинтересует
3 месяца назад
3 месяца назад
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
7 лет назад