Информатика, опубликовано 2018-08-22 23:20:58 by Гость
Дано трёхзначное число, поменять местами сотни и единицы и сравнить эти числа??
Ответ оставил Гость
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, end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на