39

Ввели трехзначное число, определить есть в нем повторяющиеся цифры. Паскаль

13 февраля 2023

Ввели трехзначное число, определить есть в нем повторяющиеся цифры. Паскаль

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



54

var e: Integer; beginWrite ('Введите число: '); Readln (e); if (e div 100)=(e mod 100 div 10) or (e div 100)=(e mod 10) or (e mod 100 div 10)=(e mod 10) then Write ('В числе ', e, ' есть повторяющиеся цифры! ') else Write ('В числе ', e, ' нет повторяющихся цифр'); Readln; end.

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


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