55

Выяснить есть ли в трехзначном числе одинаковые цифры

25 февраля 2023

Выяснить есть ли в трехзначном числе одинаковые цифры

категория: информатика



52

Пишу на паскалеprogram tralala; var a,b,c,n: integer; beginreadln (n); a: =n div 100; b: =n div 10 mod 10; c: =n mod 10; if (a=b) or (a=c) or (b=c) then writeln (Есть'); else write ('Нету'); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...