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

Для начала переведём гбайты в мбайты 1)320 гбайт = 320 * 1024 мбайт = 327680 мбайт теперь найдем количество дисков, необходимых для копирования 327680 мбайт 2)327680 / 700 = примерно 468.114, т.е. необходимо 469 дисков найдем вес   469 дисков 3)469 * 15 = 7035 грамм = 7.035 кг ответ: 7.035 кг

Uses crt; var a: array [1..25] of integer;     i,t,j,max,s: integer; begin  max: =-10;   s: =0; t: =0; j: =0;   for i: =1 to 25 do begin      a[i]: =random(18)-10;   if a[i]> max then begin     max: =a[i];     j: =i;     end;     end;   for i: =1 to 25 do begin   t: =t+1;       write(' a[',i: 2,']=',a[i]: 2);   if t=5 then begin   writeln;   t: =0;   end;   end;     j: =j+1;   for i: =j to 25 do   s: =s+a[i];   write(s); end.    

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 var a: array[1..100] of integer;     i,n,k,s: integer; begin     write('введите размерность: '); readln(n);     for i: =1 to n do     begin       a[i]: =random(31)-15;       write(a[i]: 4);       if a[i] mod 2 = 0 then       begin         s: =s+a[i];         inc(k);       end;     end;     writeln;     writeln('сумма чётных= ',s);     writeln('кол-во чётрых= ',k);     readln; end.