Проверить, есть ли в четырехзначном числе одинаковые цифры

//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

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!