В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
fkireeva
fkireeva
02.12.2020 13:20 •  Информатика

Найдите через питон

Назовём натуральное число N (1000008  N  7777778) счастливым, если в его восьмеричной

записи все цифры расположены в порядке неубывания. Найдите количество таких чисел.​

Показать ответ
Ответ:
У4еник738
У4еник738
11.01.2022 08:53

3. Укажите соответствия.

1 поколение - ламповые машины.

2 поколение - полупроводниковые машины на транзисторах.

3 поколение - миникомпьютеры на интегральных схемах.

4 поколение - вычислительные системы на большой интегральной схеме.

4. Запишите пропущенные слова и словосочетания в предложениях.

Одним из первых устройств, облегчающих вычисления, можно считать абак. Следующим этапов люди изобрели аналоговый компьютер. А впоследствии и до сих пор мы пользуемся цифровым компьютером.

5. Заполните пропущенные слова и словосочетания в предложениях.

Робот является одним из признаков развития вычислительной техники пятого поколения, потому что в основе его лежит искусственный интеллект.

0,0(0 оценок)
Ответ:
Shaurma021
Shaurma021
12.04.2021 23:03
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

№1

function IsGood(n:integer):boolean;
begin
  n:=Abs(n);
  var s:=0;
  while n>0 do begin
    s+=n mod 10;
    n:=n div 10
    end;
  Result:=s=10
end;

begin
  var k:=ReadSeqIntegerWhile(t->t<>0).Where(t->IsGood(t)).Count;
  Writeln(k,' чисел с суммой цифр, равной 10')
end.

Пример
-5234 20043 52340 10531 -64 31502 0
2 чисел с суммой цифр, равной 10

№2

begin
  var n:=ReadInteger('Введите число:');
  if n<=1 then Writeln(n,'!=',1)
  else Writeln(n,'!=',1.To(n).Aggregate(BigInteger(1),(i,j)->i*j))
end.

Примеры
Введите число: 5
5!=120

Введите число: 20
20!=2432902008176640000

Введите число: 100
100!=93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000

№3

begin
  if ReadInteger('Введите число:').ToString.GroupBy(t->t).
      Select(t->(t.Key,t.Count)).Any(t->t[1]>1)
  then Writeln('Число содержит по крайней мере две одинаковые цифры')
  else Writeln('Введенное число не содержит одинаковых цифр')
end.

Примеры
Введите число: 12345670
Введенное число не содержит одинаковых цифр

Введите число: 1320624
Число содержит по крайней мере две одинаковые цифры
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота