Gholbirdana
4 год назад
Уровень B. Задание M. Две одинаковые цифры рядомНапишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221).Входные данныеВходная строка содержит одно натуральное число.Выходные данныеПрограмма должна вывести слово 'YES', если в числе есть две одинаковые цифры, стоящие рядом, и слово 'NO', если такой пары цифр нет.Примерывходные данные5221выходные данныеYESвходные данные1232выходные данныеNOУровень C.Задание O. Две одинаковые цифрыНапишите программу, которая определяет, верно ли, что введённое число содержит по крайней мере две одинаковых цифры, возможно, не стоящие рядом (как, например, 212).Входные данныеВходная строка содержит одно натуральное число.Выходные данныеПрограмма должна вывести слово 'YES', если в числе есть две одинаковые цифры, и слово 'NO', если такой пары цифр нет.Примерывходные данные212выходные данныеYESвходные данные12345выходные данныеNO
ОТВЕТЫ
Vesela
Oct 24, 2020
Program n1;
var a, b, c, s: longint;
begin
read(c);
repeat
a := c mod 10;
c := c div 10;
s := c;
while s > 0 do
begin
b := s mod 10;
s := s div 10;
if (a = b) then begin
writeln('yes');
a :=77;
break;
end;
end;
if (a = 77) then break
until (c = 0);
if (a <> 77) then
writeln('no');
end.
var a, b, c, s: longint;
begin
read(c);
repeat
a := c mod 10;
c := c div 10;
s := c;
while s > 0 do
begin
b := s mod 10;
s := s div 10;
if (a = b) then begin
writeln('yes');
a :=77;
break;
end;
end;
if (a = 77) then break
until (c = 0);
if (a <> 77) then
writeln('no');
end.
351
Смежные вопросы:
