М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Mira12202
Mira12202
09.11.2021 21:08 •  Информатика

плеась вот это вот первое задание сделать, дайте кто знает какой там код для html


плеась вот это вот первое задание сделать, дайте кто знает какой там код для html

👇
Открыть все ответы
Ответ:
Merlin131
Merlin131
09.11.2021

a)  14

б)   10

Объяснение:

a)

s = 0       m = 5

для i от 2 до m выполнить s = s + i

т.к. m = 5 , то цикл примет вид

для i от 2 до 5 выполнить s = s + i

s = 0

i = 2       s = s + i = 0 + 2 = 2

i = 3       s = s + i = 2 + 3 = 5

i = 4       s = s + i = 5 + 4 = 9

i = 5       s = s + i = 9 + 5 = 14

s = 14

б)

s = 0       i = 5

пока условие i > 0 истинно (да) выполняется цикл

Действия в цикле:

1) i = i - 1

2) s = s + i

s = 0       i = 5

5 > 0     (да) выполняется цикл

Действия в цикле:

1) i = i - 1  = 5 - 1 = 4

2) s = s + i  = 0 + 4 = 4

s = 4       i = 4

4 > 0     (да) выполняется цикл

Действия в цикле:

1) i = i - 1  = 4 - 1 = 3

2) s = s + i  = 4 + 3 = 7

s = 7       i = 3

3 > 0     (да) выполняется цикл

Действия в цикле:

1) i = i - 1  = 3 - 1 = 2

2) s = s + i  = 7 + 2 = 9

s = 9       i = 2

2 > 0     (да) выполняется цикл

Действия в цикле:

1) i = i - 1  = 2 - 1 = 1

2) s = s + i  = 9 + 1 = 10

s = 10       i = 1

1 > 0     (да) выполняется цикл

Действия в цикле:

1) i = i - 1  = 1 - 1 = 0

2) s = s + i  = 10 + 0 = 10

s = 10       i = 0

0 > 0     (нет) цикл  не выполняется

s = 10       i = 0

4,4(25 оценок)
Ответ:
11Аслан11
11Аслан11
09.11.2021
                                     PascalABC.NET                                       function ToBinary (x:integer):string; beginif (x>0) then ToBinary := ToBinary(x div 2) + (x mod 2).ToString;end; function FromBinary (x:string):integer; beginif (x.Length>0) then FromBinary := FromBinary(x.Substring(1)) + x[1].ToDigit*Round(Power(2,x.Length-1));end; function func (x:integer):integer; beginvar s := ToBinary(x); loop 2 do s += s.AsEnumerable.Sum(c->c.ToDigit) mod 2; func:=FromBinary(s);end; begin Println('f(N):',func(ReadInteger('N:'))); Println('Количество:',(1..160).Count(x->func(x) in 90..160)); end.

Примечание:

Если к числу в двоичной системе счисления приписывать в конец цифры, то число увеличивается и никак не может уменьшится. Поэтому, n<f(n). Следовательно, перебор различных чисел, принадлежащих отрезку [90;160], можно смело ставить до 160 (можно и меньше, но лень расписывать вычисления).

ToBinary - функция перевода числа из десятичной СС в двоичную. Можно писать любой алгоритм, необязательно в точности использовать мой.

FromBinary - функция перевода числа из двоичной СС в десятичную. Можно писать любой алгоритм, необязательно в точности использовать мой.

func - функция, которая выполняет преобразования числа согласно условию (пункты 1, 2, 3, 4).

Код кажется большим только из-за процедур и begin/endов. Без них - всего то 7 строчек :). В скринах можно проверить, действительно ли 19 (40-22+1).

Пример работы:


Автомат обрабатывает натуральное число N по следующему алгоритму: 1. Строится двоичная запись числа
Автомат обрабатывает натуральное число N по следующему алгоритму: 1. Строится двоичная запись числа
Автомат обрабатывает натуральное число N по следующему алгоритму: 1. Строится двоичная запись числа
4,6(55 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ