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

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

  1. Ответ
    Ответ дан Аккаунт удален
    // 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. Ответ
      Ответ дан Аккаунт удален
      А возраст тут не при чем. Вам такой же ответ может дать и старшеклассник.