Program n1;
var a: array[1..12] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 12 do
begin
a[i]:=random(15);
write(a[i],' ');
if i mod 2=0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
Программа может выглядеть такЖ
uses crt;
const n=4;
type Mas=array [1..n] of real;
Var A: Mas;
i: integer;
Sum, Sred: real;
Begin
ClrScr;
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
Sum:=Sum+A[i];
end;
Sred:=Sum/n;
WriteLn ('Sred = ', Sred:5:2);
ReadLn;
end.
Вообще, что бы делилось на 7, они должны быть такими: 123027; 12467; 60037; 53067.
1) 22 бита
2) 88 байт
3) 44 байт
4) 176 бит
Пояснение.
Каждый символ кодируется 8 битами. Всего символов 22, включая пробелы. Следовательно, ответ 176 бит.
Правильный ответ указан под номером 4.
I = 1 байт.
тогда I = k*i или I = k/
k = 76
I(бит) = 76 * 8 = 608 бит
ответ: 2