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

Question

Михайлина

31 июля, 02:51

+2

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