На паскале
---
uses crt;
const n=3;
m=3;
var a: array [1..n,1..m] of integer;
x,y,k: integer;
begin
k:=0;
for x:=1 to n do begin
for y:=1 to m do begin
a[x,y]:=random(21)-10;
if a[x,y] mod 2=1 then inc(k);
write(a[x,y]:4);
end;
writeln;
end;
writeln('Количество неотрицательных нечетных элементов: ',k);
<span>end.</span>
21*1024=21504 байт*8=172032 бита
172032/28672= 6 бит - вес одного символа.
2^6 = 64
мощность алфавита равна 64.
Ответ: размер файла 26,25 Мбайт
Объяснение:
512 Кбит = 512 / 8 = 64 Кбайт
7 мин = 7 * 60 = 420 сек.
64 Кбайт * 420 сек = 26880 Кбайт
26880 Кбайт = 26880 / 1024 = 26,25 Мбайт
Sub Alg_1()
xN = -5: xK = 5: h = 0.1
x = xN: i = 1
Do While x <= xK
y = 3 * x ^ 2 - 6 * x + 5
Cells(i, 1) = x: Cells(i, 2) = y
x = x + h: i = i + 1
Loop
End Sub
Во вложении файл с рабочей книгой MS Excel 2003. Макрос на листе 1.
<u>Теперь о Вашей ошибке</u>
<span>Dim xN, xK, x As Integer
Dim y, h As Single
xN = -5
...
h = 0.1
x = xN
...
x = x + h</span>
Такое описание означает, что xN, xK будут типа Variant, х - типа Integer.
y тоже будет типа Variant, h - типа Single.
При выполнении опeратора x=x+h целочисленное x сначала увеличится на 0.1, а затем дробная часть будет отброшена. Поэтому х постоянно будет равен xN и цикл станет бесконечным.