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

Ответы 1

  • написать к сожалению времени нету. но решение такое:assign...while not EOF (input.txt) do beginreadln(s);for i:=0 to length(s) do if s[i]=s[i-1] then  sum:=sum+1;Сейчас к сожалению репетиторство делаю. как доделаю, если не справишься - отпишу полное решение. Возможно уже ближе к вечеру тогда.
    • Автор:

      lynxmsnr
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years