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

Ответы 1

  • var

      a : integer;

    begin

      write ('A = ');

      readln (a);

      if (a > 999) or (a < 100) then

        writeln ('Число не трехзначное')

      else if (a mod 10 = a div 100) or (a mod 10 = a mod 100 div 10) or

                  (a div 100  = a mod 100 div  10) then

        writeln ('Да, есть')

      else

        writeln ('Нет, нету');

      readln;

    end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years