ТутРешу.Ру

Дано трехзначное число

Задание:

Дано трехзначное число. Написать программу, которая определяет верно ли, что все его цифрыразличные

Решение:

Попробуй. 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.




Знаете другой ответ?

Отправить свой ответ