Лазарь
7 год назад
(Pascal)составить программу, которая определяет встречаются ли в значении строковой величины два подряд идущих одинаковых символа
ОТВЕТЫ
Мефодиевич
Jul 18, 2019
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString(-gt;);
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.
Пример
-gt; переезд
е - повторяющийся символ
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString(-gt;);
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.
Пример
-gt; переезд
е - повторяющийся символ
60
Смежные вопросы:
