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

RosalinaT14 RosalinaT14    1   03.08.2019 18:30    0

Ответы
dlink162 dlink162  03.10.2020 20:43
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика