• дано трёхзначное число.верно ли что оно состоит из одинаковых цифр. решите через паскаль.

Ответы 1

  • var

      a : integer;

    begin

      read (a);

      if (a mod 10 = a div 100) and (a mod 10 = a div 10 mod 10) then writeln ('yes') else writeln ('no');

    end.

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

Еще вопросы

Войти через Google

или

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

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

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