1) Задано натуральное число N. Составить программу для вычисления факториала N. 2) Подсчитать количество четных отрицательных э
1) Задано натуральное число N. Составить программу для вычисления факториала N. 2) Подсчитать количество четных отрицательных элементов в матрице размером МхN, элементы которой вводятся с клавиатуры.
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.
104−(103)+102−(101)+…+2−(1) <span>= 52 Максимальное число получится при перестановке максимального значения после знака "-" и минимального значения после знака "+": </span><span>104−(2)+102−(101)+…+103−(1) </span> = 52+2*103-2*2 = 254