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

Question

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

Moderator

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

Есть ответ

17.12.2022

353

Ответ

Answer 1 · 17.12.2022

Попробуй.

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.

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

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

Ответ

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

Попробуй.

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.