задача 1
поскольку и объем лазерного диска и объем дискеты выражены в одних единицах, можно сразу приступать к вычислениям
разделим объем лазерного диска на объем дискеты
650/1,39=467,6 (приблизительно 468) дискет
задача2а
переведем килобайты в байты, умножив на 1024
5Кб=5*1024=5120 байт переведем байты в биты, умножив на 8
5120 байт*8=40960 бит
задача2б
чтобы перевести биты в байты разделим их на 8
12288бит/8=1536 байт
чтобы перевести байты в килобайты разделим полученное число на 1024
1536/1024=1,5 Кб
задача2в
переведем биты в байты
2^13/2^3=2^10 при делении показатели степеней вычитаются
переведем байты в килобайты
2^10/2^10=1Кб
var
a: array[1..20, 1..20] of integer;
n, m, i, j, jm: integer;
begin
randomize;
writeln('Введите количество строк и столбцов соответственно: ');
readln(n, m);
writeln('Сгенерированная матрица: ');
for i := 1 to n do
begin
jm := 1;
for j := 1 to m do
begin
a[i, j] := random(99);
write(a[i, j]:4);
if (i mod 2 = 0) and (a[i, jm] > a[i, j])
then jm := j;
end;
if i mod 2 = 0 then write(' min=a[', i, ',', jm, ']=', a[i, jm]);
writeln;
end;
readln;
end.