• Вопрос по информатике:

    Дано двузначное число. Из цифр этого числа вывести все двузначные числа, которые можно составить из данного числа

    • Автор:

      marquise
  • program dv_chislo;

    var a, ed, des, a2: byte;

    begin

    writeln(\'Введите двухзначное число\');

    readln(a);

    if (a < 10) or (a > 99) then writeln(\'Число не двухзначное!\') else begin

    ed := a mod 10;

    des := a div 10; 

    a2 := ed * 10 + des;

    writeln(\'Числа, которые можно составить из цифр \', ed, \' и \', des, \': \', ed, \' : \', a, \' \', a2);

    • Отвечал:

      snuffleswlwi

    Ответов нет, но ты это испарвиш!