1) напишите программу, вычисляющую значение функцию y=n(x+3x)^4-12xn+2n, для х и n введённых с клавиатуры. вычисление значения функции вынесите в отдельную процедуру. 2) напишите программу вычисляющую количество пар чисел, сумма которых четна 6 пар чисел вводится с клавиатуры. (способ ввода выберите сами) ! )
162
407
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1599 от 17.12.2017 // внимание! если программа не работает, обновите версию! procedure dimdimoch(x: real; n: integer; var r: real); begin r: =n*sqr(sqr((x+3**x*n+2*n end; begin var x: real; var n: integer; write('введите x и n: '); read(x,n); var r: real; dimdimoch(x,n,r); writeln('значение функции ',r) end. пример введите x и n: -1.23 4 значение функции 2410.83920384 begin writeln('введите 6 пар целых чисел'); var k: =0; loop 6 do begin var (a,b): =readinteger2; if (a+b).iseven then k+=1 end; writeln('число пар с четной суммой: ',k) end. пример введите 6 пар целых чисел 15 23 19 -7 5 0 4 11 132 63 444 12 число пар с четной суммой: 3
Популярно: Информатика
-
renat2064864354021.05.2020 06:02
-
Kira210321.05.2021 00:25
-
Акося355727.04.2021 18:59
-
asilwa119001.10.2021 20:22
-
dyadyan22.07.2020 16:26
-
dzikita209.04.2021 02:12
-
yhenik201510.04.2021 17:47
-
sharshukovauly25.05.2022 15:48
-
nadiakrasavtze03.03.2021 11:57
-
AlexCairon524.08.2020 15:40