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

Помогитееее Составить программку, которая определяет, есть ли посреди цифр целого трёхзначного числа однообразные

Задать свой вопрос
Bidnaja Margarita
Что непосредственно нужно?
Олег Бари
составить программку в паскале
Сережа Макарютин
Не понятно как именно. Что конкретно писать? Просто текст программки или же необходимо написать целое приложение? Откуда будет браться целое трёх-значное число? Как программка обязаны выводить итог?
Семинов Алексей
текст программки
Violetta Tarsasova
испытания
Шкурлова София
итог тоже
1 ответ
// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
  var s:=ReadInteger('n=').ToString;
  if (Pos(s[1],Copy(s,2,2))gt;0) or (s[2]=s[3])
  then Writeln('Есть одинаковые числа')
  else Writeln('Нет схожих цифр')
end.

Тестовое решение:
n= 141
Есть схожие цифры
Анатолий Пастихин
такое еще не проходили(не разумею
Данил Ахалясов
А это Ваши трудности! Откуда нам всем знатб, что Вы проходили, а что нет? Надобно писать в условии задания ограничения на способы решения.
Дицков Сашок
откуда мне знать какого вы возраста
Арсений Мушкатихин
А возраст здесь не при чем. Для вас таковой же ответ может дать и старшеклассник.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт