Вывести на экран все двузхначные числа…

Question

Вывести на экран все двузхначные числа, в записи которых все цифры разные нужно все это в паскалесделать

Answer 1

45

andrik0303

30 марта 2023

var a,b,c: integer; begin a: =10; repeat b: =a mod 10; c: =(a div 10) mod 10; if (b<>c) then writeln (a); inc (a); until (a>99); readln; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить