Получено сообщение, информационный объём которого равен 32 битам. чему равен этот объём в байтах? а)5 б)2 в)3 г)4
246
329
Ответы на вопрос:
var a: array[1..10,1..10]of integer; i,j,k,s: integer; beginfor i: =1 to 10 do for j: =1 to 10 do a[i,j]: =random(9)+1; for i: =1 to 10 do begin for j: =1 to 10 do write(a[i,j],' '); if j=10 then writeln; end; s: =1; for i: =2 to 10 do begin k: =a[i,1]; for j: =2 to 10 do beginif i mod 2 = 0 then if a[i,j]> k then k: =a[i,j]; if (j=10) and (i mod 2=0) then s: =s*k; end; end;
writeln(s); end.
Популярно: Информатика
-
lizasyper615.11.2020 14:59
-
vika03062007118.12.2022 05:33
-
АРТЁМ5556718.08.2021 12:57
-
Диана1568819.05.2022 09:58
-
twinnyXD14.05.2023 22:06
-
Loseva7210.05.2022 23:08
-
arakelyankrist31.12.2020 15:26
-
ulviismailov1312.09.2022 13:53
-
abeke414.12.2021 09:37
-
Мила2001123.02.2021 17:19