1 байт = 8 бит
Переводим биты в байты: 200/8=25 байт в секунду
25*10=250 байт
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
Все просто. 113,87056 делите на 6, а потом еще раз на 2
Ответ: 9,48921335
По вертикали:
1. Информация
По горизонтали:
1. Редактирование
2. Фрагмент
<span>3. Шрифт </span>
<span>4. Форматирование </span>
<span>5. Процессор</span>
<span>6. Документ </span>
<span>8. Центрирвание </span>
<span>9. Копирование</span>
begin
var a := MatrGen(10, 10, (i,j) -> Ln(Abs((i+1)*(j+1))));
a.Println(7, 4)
end.