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

Question

Тарасия

9 мая, 11:58

+3

Ответы (1)

Знаете ответ на вопрос?

Калуф · Answer 1

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.