Предмет: Информатика,
автор: 675max
программа паскаль Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221).
Входные данные
Входная строка содержит одно натуральное число.
Выходные данные
Программа должна вывести слово 'YES', если в числе есть две одинаковые цифры, стоящие рядом, и слово 'NO', если такой пары цифр нет.
Ответы
Автор ответа:
0
var
s:string;
i:longint;
t:boolean;
begin
read(s);
t:=false;
for i:=1 to length(s)-1 do
if s[i]=s[i+1] then t:=true;
if t then writeln('YES') else writeln('NO');
end.
s:string;
i:longint;
t:boolean;
begin
read(s);
t:=false;
for i:=1 to length(s)-1 do
if s[i]=s[i+1] then t:=true;
if t then writeln('YES') else writeln('NO');
end.
Интересные вопросы
Предмет: Русский язык,
автор: semkirli1980
Предмет: Русский язык,
автор: настя7277
Предмет: Русский язык,
автор: stecha08
Предмет: Химия,
автор: kotenyaanonimnaya
Предмет: Математика,
автор: vanya5591