Введите трёхзначное число. Определите, все ли цифры данного числа различны и выведите на экран соответствующее сообщение: "Различны" либо "Одинаковые".
Введите трёхзначное число. Определите, все ли цифры данного числа различны и выведите на экран соответствующее сообщение: "Различны" либо "Одинаковые".
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы