Опубликовано 5 лет назад по предмету Информатика от Lhjg

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

Ответ

Ответ дан Аккаунт удален

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
var s:=ReadInteger('n=').ToString;
if (Pos(s[1],Copy(s,2,2))>0) or (s[2]=s[3])
then Writeln('Есть одинаковые цифры')
else Writeln('Нет одинаковых цифр')
end.

Тестовое решение:
n= 141
Есть одинаковые цифры
1. Ответ
  
  Ответ дан Lhjg
  
  такое еще не проходили(
  не понимаю
2. Ответ
  
  Ответ дан Аккаунт удален
  
  А это Ваши проблемы! Откуда нам всем знатб, что Вы проходили, а что нет? Надо писать в условии задания ограничения на методы решения.
3. Ответ
  
  Ответ дан Lhjg
  
  откуда мне знать какого вы возраста
4. Ответ
  
  Ответ дан Аккаунт удален
  
  А возраст тут не при чем. Вам такой же ответ может дать и старшеклассник.

Самые новые вопросы

Другие предметы - 5 лет назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 5 лет назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 5 лет назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 5 лет назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 5 лет назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают