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>
Program task1;
var a, b, c, p, s :real;
begin
readln(a,b,c); if (a + b > c) and (a + c > b) and (b + c > a) then begin writeln('Могут быть сторонами треугольника'); p:= (a + b + c)/2; s:= sqrt( p * (p - a) * (p - b) * (p - c) ); writeln('Площадь равна ',s); end else writeln('Не могут быть сторонами треугольника');
<span>end.
program task2;
var a, b, c :real; d :integer;
begin
write('Введите числа: '); readln(a,b); write('Введите номер действия: '); readln(d); case d of 1: c:= a + b; 2: c:= a - b; 3: c:= a * b; 4: c:= a / b; end; writeln(c);
<span>end.</span></span>
32 Кбайт= 32*1024*8=262144 бит(1 Кбайт=1024 байт, 1 байт= 8 бит)
262144:4096=64 секунды.
И 512*64=32768 бит
32768 бит= 4096 байт