Var a:array[1..5,1..10] of integer;
b:array[1..5,1..10] of real;
i,max:integer;
begin max:=0;
for i:=1 to 5 do
for j:=1 to 10 do begin
read(a[i,j]);
if abs(a[i])> max then max:=a[i];
end;
for i:=1 to 5 do
for j:=1 to 10 do begin
b[i,j]:=a[i,j]/max
write(a[i,j]);
end;
end.
Ответ:
128
Объяснение:
Знаю решение комбинаторикой:
Чтобы выбрать 1 цифру нам потребуется 4 варианта (п, е, т, я). для выбора второй цифры мы можем использовать только 2 варианта.( если же первая буква согласная, то вторая - либо е либо я. если первая буква гласная, то вторая - либо п либо т)
для третьей буквы и для всех последующих тоже 2 варианта (по той же логике). в итоге нам нужно перемножить все варианты: 4•2•2•2•2•2=128
8192 бит<span> = 8 килобит </span>8192 бит<span> = 1 </span>килобайт
С) 824
т.к. в 8-ной системе могут использоваться только цифры от 0 до 7
Если в ворде, то Файл - параметры - язык