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

Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"):vari,a,d:integer;s:string;beginwriteln('Введите трёхзначное число ');read(s);d:=length(s);if d<>3 thenwrite('Это не трёхзначное число!');if d=3 thenif (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('Да')elsewrite('Нет');end. Простой вариант(выводится ошибка если цифр больше или меньше трёх!):vari,a,d:integer;s:string;beginwriteln('Введите трёхзначное число ');read(s);if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('Да')elsewrite('Нет');endю