С клавиатуры задано целое трехзначное число. Определите, есть ли среди цифр задуманного числа одинаковые.

кумир

Усложнённый вариант (всё работает исправно, при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!") : var

i, a, d:integer;

s:string;

begin

writeln ('Введите трёхзначное число ');

read (s);

d:=length (s);

if d3 then

write ('Это не трёхзначное число!');

if d=3 then

if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then

write ('Да')

else

write ('Нет');

end. Простой вариант (выводится ошибка если цифр больше или меньше трёх!) : var

i, a, d:integer;

s:string;

begin

writeln ('Введите трёхзначное число ');

read (s);

if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then

write ('Да')

else

write ('Нет');

endю