ого23
07.07.2021 20:04

Составить программу которая вводит с клавиатуры показанную температуру и рисует снежинку если температура меньше 0 или рисует солнце если температура больше 0

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
alenadevyataya
19.09.2021 18:26

ответ: 100.

Объяснение:

Искомое количество программ равно произведению количества программ, получающих из числа 2 число 11, на количество программ, получающих из числа 11 число 22.

Пусть R(n) — количество программ, которые число 2 преобразуют в число n, F(n) — количество программ, которые число 11 преобразуют в число n.

Верны следующие соотношения:

R(n) = R(n−2) + R(n/2)(если n — чётно) + R(n-3).

 

R(2) = 1.

R(3) = R(3) = 0.

R(4) = R(2) + R(2) = 2.

R(5) = R(2) + R(3) = 1.

R(6) = R(3) + R(4) = 2.

R(7) = R(4) + R(5) = 3.

R(8) = R(6) + R(5) + R(4) = 5.

R(9) = R(6) + R(7) = 5.

R(10) = R(8) + R(5) + R(7) = 9.

R(11) = R(8) + R(9) = 10.

 

F(11) = 1.

F(12) = 0.

F(13) = F(11) = 1.

F(14) = F(11) + F(12) = 1.

F(15) = F(12) + F(13) = 1.

F(16) = F(14) + F(13) = 2.

F(17) = F(15) + F(14) = 2.

F(18) = F(16) + F(15) = 3.

F(19) = F(17) + F(16) = 4.

F(20) = F(18) + F(17) = 5.

F(21) = F(19) + F(18) = 7.

F(22) = F(20) + F(19) + F(11) = 10.

 

Таким образом, количество программ, удовлетворяющих условию задачи, равно 10 · 10 = 100.

 

0,0(0 оценок)
Ответ:
xeniakudriavtseva
19.01.2020 13:06
Задание 1var    i, N, inputNumber, max: integer;begin    Write('Введите количество чисел: ');    Readln(N);        for i := 1 to N do        begin            Write('Введите число: ');            Readln(inputNumber);                        if (inputNumber mod 10 = 7) then                if (inputNumber > max) then                    max := inputNumber;        end;        if (max = 0) then        Write('В последовательности нет чисел, оканчивающихся на 7')    else Write('Максимальное число, оканчивающееся на 7: ', max);end.Задание 2var    i, N, inputNumber, sum: integer;begin    Write('Введите количество чисел: ');    Readln(N);        for i := 1 to N do        begin            Write('Введите число: ');            Readln(inputNumber);                        if (inputNumber mod 10 = 3) then                sum := sum + inputNumber;        end;        if (sum = 0) then        Write('В последовательности нет чисел, оканчивающихся на 3')    else Write('Сумма чисел, оканчивающихся на 3: ', sum);end.Задание 3var    i, N, inputNumber, valueOfNumbers: integer;begin    Write('Введите количество чисел: ');    Readln(N);        for i := 1 to N do        begin            Write('Введите число: ');            Readln(inputNumber);                        if ((inputNumber mod 10 = 4) and (inputNumber mod 3 = 0)) then                valueOfNumbers := valueOfNumbers + 1;        end;        if (valueOfNumbers = 0) then        Write('В последовательности нет чисел, оканчивающихся на 4 и кратных 3-м')    else Write('Сумма чисел, оканчивающихся на 4 и кратных 3-м: ', valueOfNumbers);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота