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

кумир

Усложнённый вариант (всё работает исправно, при вводе больше или меньше 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ю