Запишите метод, дозволяющий найти, есть ли посреди цифр данного целого трёхзначного

Запишите метод, дозволяющий определить, есть ли посреди цифр данного целого трёхзначного числа x схожие. Метод записи изберите без помощи других.

Задать свой вопрос
1 ответ
Program x;
var
s:string;
begin
readln(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
writeln('есть') else writeln('нет')
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт