Получить удвоенное значение числа, состоящего из цифр числа a, записанных в невозрастающем порядке

кирюх

Дано целое двухзначное число a. Получить удвоенное значение числа, состоящего из цифр числа a, записанных в невозрастающем порядке. Входные данные: Во входном потоке записано единственное целое двухзначное число a.Выходные данные: В выходной поток вывести единственное целое число.Пример входного файла (input.txt): 78 Пример выходного файла (output.txt): 174
5 ответов

кирюх

var ch, d, e: integer;
 
begin
  readln(ch);
  d := ch div 10;
  e := ch mod 10;
  if d > e
    then writeln((d * 10 + e) * 2)
    else writeln((e * 10 + d) * 2)
end.


кирюх

Пишет не правильно. Подскажите где ошибка?


кирюх

Пишет не правильно.
Что именно неправильно?


кирюх

Просто пишет (Тест не пройден)Извиняюсь, а можно код задачи такого же условия только в неубывающем порядке!!!


кирюх

var ch, d, e: integer;
 
begin
  readln(ch);
  d := ch div 10;
  e := ch mod 10;
  if d < e
    then writeln((d * 10 + e) * 2)
    else writeln((e * 10 + d) * 2)
end.