Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Запишите алгоритм, позволяющий определить, есть ли среди цифр заданного целого трёхзначного числа x одинаковые. Способ записи выберите самостоятельно.

Ответ оставил Гость

Program x;
var
s:string;
begin
readln(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
writeln(есть) else writeln(нет)
end.