Вsd диск объёмом 700 мб. весит 15 грамм. сколько будет весить набор таких дисков не обходимо для копирования информации объёмом 32 гигабайт?

1: переведем гигабайты в мегабайты       32 гбайт = 32*1024 мбайт = 32768 мбайт2: находим количество дисков       32768\700 ~ = 46.81 т.е. 47 дисков3: находим вес 47 дисков      47*15 = 705 грамм =0,705 кгответ: 0,705 кг

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

program xxx;

      var i : integer;

                a : array[1..15] of real;                   n : real;   begin    randomize;     for i: =1 to 15 do        a[i]: =random(20)-20;  

    writeln('исходный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    n: =a[1];

    a[1]: =a[15];

    a[15]: =n;

    writeln('полученный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    readln

end.