Vyuuzlarz 3 ноября 2019 в 10:34
Введите трёхзначное число. Определите, все ли цифры данного числа различны и выведите на экран соответствующее сообщение: "Различны" либо "Одинаковые".
Введите трёхзначное число. Определите, все ли цифры данного числа различны и выведите на экран соответствующее сообщение: "Различны" либо "Одинаковые".
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.
begin
read(s);
if(s[1] = s[3]) or (s[2] = s[3]) or (s[1] = s[2])
then write(Одинаковые)
else write(Различны);
end.
Для комментирования необходимо зарегистрироваться на сайте