Задание:
Дано трехзначное число. Написать программу, которая определяет верно ли, что все его цифрыразличные
Решение:
Попробуй. program shdhasd; var s: string; beginwriteln ('Введите трехзначное число '); read (s); if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) thenwrite ('Не верно! ') elsewrite ('Верно'); end.
Знаете другой ответ?