Задать вопрос

Напишите программу, которая определяет, есть ли среди цифр введенного с клавиатуры целого трехзначного числа одинаковые.

+4
Ответы (1)
  1. 2 июня, 06:27
    0
    var a, b, c:integer;

    begin

    writeln ('Последовательно введите все цифры числа');

    read (a, b, c);

    if a=b then

    write (a, b)

    else if a=c then

    write (a, c)

    else if b=c then

    write (b, c)

    else write ('Нет одинаковых чисел');

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Напишите программу, которая определяет, есть ли среди цифр введенного с клавиатуры целого трехзначного числа одинаковые. ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы