1) var f: real; n: integer; begin write('n = '); readln(n); f: =1; for n: = 1 to n do f: =f*n; writeln(n,'! = ',f); end. 2) const m = 3; n = 4; var a: array[1..m,1..n] of integer; i,j,k: integer; begin k: =0; writeln('введите массив(',m,',',n,'): '); for i: = 1 to m do for j: = 1 to n do begin read(a[i,j]); if (a[i,j] < 0)and(a[i,j] mod 2 = 0) then k: =k+1 end; writeln('k = ',k); end.
Dmitrii_Shamilevich2019
12.05.2021
Int main() { int *array_x, *array_y, numofel, border_c, prevnum; cout < < "input n: "; cin > > numofel; array_x = new int[numofel]; array_y = new int[numofel / 2]; cout < < "input c: "; cin > > border_c; for (int i = 0; i < numofel; i++) cin > > array_x[i]; prevnum = border_c; for (int i = 0, j = 0; i < numofel; i += 2) if (array_x[i] < border_c & & array_x[i] ! = prevnum) array_y[j++] = prevnum = array_x[i]; cout < < endl; for (int i = 0; i < numofel; i++) cout < < array_x[i] < < "; "; cout < < endl; for (int i = 0; i < numofel / 2; i++) cout < < array_y[i] < < "; "; system("pause"); return 0; } /* end of the 'main' function */
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сколько чисел нужно взять в последовательности 3+3+9…, чтобы получить число большее 300?