// 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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составить программу для решения : в массиве b1 b2 b20 найдите количество единиц
c++
#include
void search (int
{
int counter = 0;
for (int i=0; i
if (mass i == 1)
counter++;
std: : cout<
}
void main()
{
int b[20];
for (int i = 0; i
b[i] = rand % 5;
search(b);
}