Задать вопрос
17 августа, 08:40

Введите трёхзначное число. Определите, все ли цифры данного числа различны и выведите на экран соответствующее сообщение: "Различны" либо "Одинаковые".

+5
Ответы (1)
  1. 17 августа, 09:56
    0
    Var s: string;

    begin

    read (s) ;

    if (s[1] = s[3]) or (s[2] = s[3]) or (s[1] = s[2])

    then write ('Одинаковые')

    else write ('Различны') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Введите трёхзначное число. Определите, все ли цифры данного числа различны и выведите на экран соответствующее сообщение: "Различны" либо ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. В языке PHP создайте генератор случайного числа от 1 до 10. Выведите результат выполнения на экран любым способом. 2. Если полученное случайное число четное, выведите на экран слово "четное", иначе выведите на экран слово "нечетное". 3.
Ответы (1)
Введите с клавиатуры два числа a и b. Если оба числа четные, то вычислите их сумки выведите результат на экран. если оба нечетные то найдите произведение этих чисел и выведите результат. Иначе, увеличить все числа в пять раз и выведите результаты.
Ответы (1)
Var day:byte; boy:string; pi:real; begin / / В блок памяти boy запишите Ваше имя / / В переменную day запишите Ваш возраст / / Выведите на экран содержимое переменной boy / / Выведите на середину экрана текст "Меня зовут", а рядом - содержимое
Ответы (1)
Введите 3 числа - a, b, c. Определите, имеется ли среди чисел хотя бы одно чётное число. Выведите на экран соответствующее сообщение: "Есть" либо "Нет".
Ответы (2)
Введите с клавиатуры три числа x, y, z. если числа равны, то увеличте их в три раза и выведите результат на экран. Если равны только два последние числа то замените все числа на противоположные и выведите результаты.
Ответы (1)