Пример: k (<=10) = 5-10 1 -11 -10 16 6 -1 -15 -19 9 sum (1..5) = -14 sum (2..6) = 2 sum (3..7) = 0 sum (4..8) = -4 sum (5..9) = -13 sum (6..10) = -20
kassel1b
03.07.2020
Const LIM=2; W=8; D=2; n=5; m=5; { n строк, m столбцов } var a: array [1..n,1..m] of real; p: real; h: boolean; i, j: integer; begin Randomize; WriteLn('A='); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=LIM*Random; Write(a[i,j]:W:D); end; WriteLn; end; WriteLn('B='); for i:=1 to n do begin p:=1; h:=false; for j:=1 to m do if (abs(a[i,j])>=1) and (abs(a[i,j])<=1.5) then begin p:=p*sqr(a[i,j]); h:=true; end; if h then Write(p:W:D) else Write('?':W); end; WriteLn; Write('Нажмите ENTER...'); ReadLn; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Объём информации текста 50-и символов составляет 200 бит. чему равно максимально-возможное количество символов в алфавите?