Проверить, есть ли в четырехзначном числе одинаковые цифры
Проверить, есть ли в четырехзначном числе одинаковые цифры
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET v3.0 сборка 1111
var
a,i:integer;
s:string;
begin
readln(a);
str(a,s); //переводим число в строку, вот такой я нехороший
for a:=1 to length(s)-1 do
for i:=a+1 to length(s) do
if s[a]=s[i] then
begin;
writeln('Yes');
exit;
end;
writeln('No');
end.
Пример ввода:
1224
Пример вывода:
Yes
Не нашли ответ?
Похожие вопросы