Введите трёхзначное число. Определите, все ли цифры данного числа различны и выведите на экран соответствующее сообщение: "Различны" либо "Одинаковые".

Question

Тамарка

17 августа, 08:40

+5

Ответы (1)

Знаете ответ?

Полинарий · Answer 1

Var s: string;

begin

read (s) ;

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

then write ('Одинаковые')

else write ('Различны') ;

end.