Дано натуральное число N. Определить, верно ли, что это число содержит ровно три...

Question

Дано натуральное число N. Определить, верно ли, что это число содержит ровно три одинаковые цифры.
Решите алгоритмом

Answer 1

Var
a,b,c,x:integer;
begin
write('Введите трехзначное число. X=');
readln(x);
a:=x div 100;
b:=(x mod 100) div 10;
c:=(x mod 10) div 1;
if (a=b) and (b=c) then writeln('Верно!')
else writeln('Не верно');
readln;
end.

Comments

c:=(x mod 10) div 1; - не понял, зачем делить на 1? ))))

---

ах, точно. можешь удалить div 1. Это я с другого файла брал. Решал подобную задачу, только про 4 числа.

---

Удалять я ничего не могу в Вашем ответе, да и зачем это мне?