Написать к сожалению времени нету. но решение такое: 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;
Сейчас к сожалению репетиторство делаю. как доделаю, если не справишься - отпишу полное решение. Возможно уже ближе к вечеру тогда.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
