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

Question

Клементина

22 октября, 16:21

+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.