Напечатать в возрастающем порядке все трёхзначные числа,в десятичной записи кот. нет одинаковых цифр
Напечатать в возрастающем порядке
все трёхзначные числа,в десятичной записи кот. нет одинаковых цифр
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var i:integer;
begin
for i:=100 to 999 do
if ((i mod 10)<>(i div 100)) and ((i mod 10)<>(i mod 100 div 10)) and
((i div 100)<>(i mod 100 div 10)) then writeln(i);
end.
Не нашли ответ?
Похожие вопросы