В файле input.txt записаны числа, сколько их - неизвестно. Определить и записать в файл output.txt количество чисел с одинаковыми цифрами (11, 22...)
Ответы
Ответ дал:
0
написать к сожалению времени нету. но решение такое:
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;
Сейчас к сожалению репетиторство делаю. как доделаю, если не справишься - отпишу полное решение. Возможно уже ближе к вечеру тогда.
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;
Сейчас к сожалению репетиторство делаю. как доделаю, если не справишься - отпишу полное решение. Возможно уже ближе к вечеру тогда.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад