Program asd;
Var A,B:array [1..250,1..250] of integer;
i,j,n,m,k: integer;
BEGIN
Write('Введите n: '); Readln(n);
Write('Введите m: '); Readln(m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:=random(10);
write(A[i,j]:3);
end;
writeln;
end;
writeln;
for i:= 1 to n do
for j:= 1 to m do
begin
If A[i,j] mod 2=1 then inc(k);
end;
If n=m then
begin
Writeln('Транспонирование: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(A[j,i]:3);
B[i,j]:=A[i,j];
end;
writeln;
end; writeln;
end
else
Writeln('Кол-во нечетных элементов: ',k);
<span>END.</span>
128=2^7 значит 7 бит весит 1 символ
80*60=4800 символов
4800*7=33600 бит=4200 байт=4,1 килобайт
А = 10
В = 20
1. Подставляем числа в следующее уравнение
А = -В * В / А
А = -20 * 20 \ 10 = -40
2. Далее идет разветвление алгоритма, выполняем уравнение:
А > B
-40 > 20
3. Поскольку у нас А меньше В, то выполняем команду:
С = 2 * А - В
С = 2 * -40 - 20 = -100
Ответ : С:=(-100)
P.S. Странно получается, у тебя там на схеме, нету стрелочки от последнего пункта до первого?
И как ответить на это всё ?
<span>512 000*(4*60) = 122 880 000 бит
<span>122880000 / 8 / 1024 = 15 000 килобайт</span></span>