Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 22: var i, k: integer; function f(x: integer): integer; begin f: =x*x*x+x*x; end; begin i : = 20; readln(k); while (i > 0) and (f(i) > k) do i: =i-1; writeln(i); end.
144
152
Ответы на вопрос:
Утебя функция x^3+x^2 и перебор от 20 до 1, т.е. x^3+x^2 будет больше 22 при числах: 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3. итого: 18 чисел
Program massiv; var mas: array[1..17] of integer; i,sum: integer; begin sum: =0; for i: =1 to 17 do begin writeln('vvedite chisla'); read(mas[i]); if mas[i] mod 2 = 0 then sum: =sum+mas[2]+mas[4]+mas[6]+mas[8]+mas[10]+mas[12]+mas[14]+mas[16]; end; writeln('summa= ', sum); readln(sum); end.
Популярно: Информатика
-
шишловская28.10.2022 15:57
-
Виктория70820.05.2023 02:20
-
калина00711.11.2022 10:12
-
Stanislava15330.12.2020 00:21
-
5777585877584757529.01.2023 14:35
-
gregsorvenkov09.01.2020 12:26
-
kidashapro31.12.2020 14:46
-
Katya12435421.10.2020 17:56
-
ArtyomFoshan20.01.2021 01:51
-
xexi02.01.2023 11:40