Ответы на вопрос:
// 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
Популярно: Информатика
-
lurudzheva18.05.2023 00:16
-
techno29069619.07.2020 22:04
-
Indira676701.01.2021 21:15
-
valyashchenko2006.01.2020 16:41
-
Demongirl101.08.2022 23:28
-
habibullina34208.02.2021 21:05
-
KVika6510.01.2022 15:36
-
albina2406198016.03.2023 00:15
-
vanekroland0125.09.2020 13:29
-
DipperGo23.02.2020 04:12