Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Онтонио Веселко

(Pascal)составить программу, которая определяет встречаются ли в значении строковой величины два подряд идущих одинаковых символа

более месяца назад
Просмотров : 27    Ответов : 1   

Лучший ответ:

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('->');
  var c:=s[1];
  for var i:=2 to s.Length do
    if s[i]=c then begin Writeln(c,' - повторяющийся символ'); exit end
    else c:=s[i];
  Writeln('Повторяющихся символов нет')
end.

Пример
-> переезд
е - повторяющийся символ

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы: