В файле input. txt записаны числа, сколько их - неизвестно. Определить и записать в файл output. txt количество чисел с одинаковыми цифрами (11, 22 ...)

Написать к сожалению времени нету. но решение такое:

assign ...

while not EOF (input. txt) do

begin

readln (s) ;

for i:=0 to length (s) do if s[i]=s[i-1] then sum:=sum+1;

Сейчас к сожалению репетиторство делаю. как доделаю, если не справишься - отпишу полное решение. Возможно уже ближе к вечеру тогда.