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

Question

Любуся

5 января, 19:24

+2

Ответы (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.