profile
Опубликовано 5 лет назад по предмету Информатика от Cake1402

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

  1. Ответ
    Ответ дан roulen
    написать к сожалению времени нету. но решение такое:
    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;

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