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.

Answer 2

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

Answer 3

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

Answer 4

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