Question

Программисты помогите пожалуйста! Необходимо написать программу в Паскале.
Условие задачи:
Для чисел от 1 до 1000. Найти количество трехзначных чисел, все
цифры которых одинаковы.

Answer 1

var i,k: integer;

begin

k:=0;

for i:=111 to 999 do  

if((i mod 10)=(i mod 100 div 10)) and ((i mod 10)=(i div 100)) then k:=k+1;

write(k);

end.