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

+2
Ответы (1)
  1. 30 августа, 07:58
    0
    program zz1;

    var a, k, s, i:integer; / / задаем переменные целого типа

    begin

    for i:=100 to 999 do / / организуем цикл, в котором переберем все трехзначные числа

    begin

    s:=i mod 10; / / получаем последнюю цифру числа

    k:=i div 100; / / получаем первую цифру числа

    a: = (i div 10) mod 10; / / получаем среднюю цифру числа

    if (sa) and (sk) and (ka) / / проверяем условие, если первая цифра не равна второй и третьей, а вторая цифра не равна третьей, то

    then write (i,' '); / / выводим ответ в строчку через пробел

    end;

    end.
Знаешь ответ на этот вопрос?