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

И 100 РУБЛЕЙ НА КИВИ ИЛИ КАРТУ Имеется древовидная структура данных, где из одной ветви разрастаются две, и так далее. Структура представлена в виде таблицы, представленной ниже и состоящей из четырёх уровней, каждая ячейка имеет свой номер. Была составлена новая таблица из десяти уровней. В этой таблице извлекли каждую ячейку с номером, равным простому числу, оставив её пустой, при этом, извлечение ячейки не приводит к изменению структуры и нумерации ячеек таблицы. Сколько пустых ячеек в сумме на 3,5 и 7 уровнях вместе взятых?


И 100 РУБЛЕЙ НА КИВИ ИЛИ КАРТУ Имеется древовидная структура данных, где из одной ветви разрастаются

Показать ответ
Ответ:
алисалисова1611
алисалисова1611
20.05.2022 09:56

Відповідь:

ассмотрим, что происходит в результате поворота точки. Пусть некоторая точка  

А

поворачивается относительно центра поворота  

О

, в результате чего получается точка  

А

1

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

А

). При этом точка  

А

1

лежит на окружности с центром в точке  

О

радиуса  

О

А

. Другими словами, когда точка  

А

осуществляет поворот относительно точки  

О

, она переходит в точку  

А

1

, лежащую на окружности с центром  

О

радиуса  

О

А

.

Пояснення:

ты про ёто?

0,0(0 оценок)
Ответ:
vbbbbb
vbbbbb
15.02.2022 18:49

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -

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