В чём ошибка
program chislo;

var

s:string;

begin

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

read (s);

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

begin

write('да');

else white('нет');

end.

анн57    1   14.04.2020 09:25    4