Задать вопрос
10 июля, 04:48

Напечатать в возрастающем порядке

все трёхзначные числа, в десятичной записи кот. нет одинаковых цифр

+4
Ответы (1)
  1. 10 июля, 08:08
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Напечатать в возрастающем порядке все трёхзначные числа, в десятичной записи кот. нет одинаковых цифр ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы