Ответы на вопрос:
// 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
Популярно: Информатика
-
мальчуган203.07.2020 06:04
-
МарияЧархчян07.04.2022 19:31
-
azodanic1201.03.2023 23:23
-
dashaloh00028.05.2021 06:09
-
perf3ctkn1ghtozbgjn25.11.2020 05:21
-
khavra199116.08.2022 12:01
-
ek72Wasdk27.04.2023 02:38
-
yanamalikova12.09.2020 19:22
-
suskoahdvej527.08.2020 06:11
-
Atedoz11.11.2020 01:26