Дано трёхзначное число. напишите программу которая определяет есть ли среди цифр заданного целого трёхзначного числа одинаковые
miqwq
3
02.04.2019 03:40
5
Другие вопросы по теме Информатика
romansyslikovp08d0y
14.03.2019 05:50
алалайла
14.01.2021 13:19
AlisaLisa005
14.01.2021 13:18
sabinaibragimo6
16.09.2019 04:30
агм2
16.09.2019 04:30
olaskripcenko87
16.09.2019 04:30
klimenkovlad598
16.09.2019 04:30
MEhelpYOU
16.09.2019 04:30
Популярные вопросы
- Решите уравнение : 105/70 = х/4 х=? заранее))...
1 - Написать 5-7 предложений на тему почему я пользуюсь интернетом...
1 - Объясни следующие обозначения: о, о2, 2о, 2о2, со2, 2со,2со2 число стоящее...
1 - :укажите одного из руководителей крестьянского вооруженного отряда во время...
2 - Match the words with their definitions. two words are extra. 1) to sign...
3 - Протяженность уральского района с севера на юг, с запада на восток?...
3 - Значения атмосферы? должно быть 8 пунктов....
1 - На спортивном соревновании участников четыре раза строили в колонну по 5,...
2 - Добить различными цинк сульфат...
2 - Объем бензина в баке во время поездки уменьшился на 25 литров.на сколько...
2
Var a,b,c,x:integer;
begin
readln(x);
a:=x mod 10;
x:=x div 10;
b:=x mod 10;
x:=x div 10;
c:=x mod 10;
if(a=b) or(a=c) or (b=c) then writeln('Yes')
else writeln('No');
end.