Ответы
Ответ дал:
0
var a, b, c: integer;
begin
readln(a);
b := (a mod 10 * 100) + (a mod 100 div 10 * 10) + (a div 100);
if (a > b) then
writeln(a, ' > ', b)
else if (a = b) then writeln(a, ' = ', b)
else writeln(a, ' < ', b);
end.
begin
readln(a);
b := (a mod 10 * 100) + (a mod 100 div 10 * 10) + (a div 100);
if (a > b) then
writeln(a, ' > ', b)
else if (a = b) then writeln(a, ' = ', b)
else writeln(a, ' < ', b);
end.
Ответ дал:
0
Спасибо!
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад