Ёмкость жёсткого диска ёмкость cd ёмкость dvd ёмкость blue-ray ёмкость флешки

Ну,короче,если обычный, 12-см диск, то cd вмещает в себя 700 мб информации. есть, правда, и диски с увеличенным объемом (т. н. "cd-r90"), но их использование не особо рекомендуется, потому что "лишние" 100 мб пишутся в служебные области. если же взять dvd диск, то его "стандартная" емкость - 4.7 гб (десятичных, если в двоичных, то 4.38 гб) . есть и двухслойные диски (внешне неотличимы от обычных, только цена выше) . у них емкость 8.4 гб. где-то существуют и двухсторонние dvd диски. если взять маленький, 8-см диск, то у cd его емкость 210 мб, а у dvd -1.4 гб.в wikipedii есть по-моему подробное объяснения(поэтому предлагаю тебе там немножко "погулять"). у blue-ray: 25 гб (однослойный) 50 гб (двухслойный) 100 гб (3-слойные диски) и 128 гб (4-слойные диски). флешки разные,от 4гб до 4 терабайт(максималка)

1.   var a, k, l, m: integer; begin s: = 0; writeln ('введите число'); readln(a); if (a> =10) and (a< =999) then k: =a div 100; l: = k div 10; m: = a mod 10; s: = k+m+l; writeln ('сумма цифр в числе равна  ',  s); end. 2. var i, a, s: integer; begin  s: =0; for i: = 1 to 3 do begin writeln ('введите число №', i); readln(a); if (a> 5) and (a mod 5 = 0) then  inc(s); end; writeln('количество четных чисел, которые делятся на 5 -  ', s); end. 3 var a, b, c, d, max, med, min: integer; begin writeln ('введите число'); readln(a); b: = a div 100; c: = b div 10; d: = a mod 10; if (b< c) and (b< d) then min: = b; if (c< b) and (c< d) then min: = c; if (d< c) and (d< b) then min: = d; if (b> c) and (b> d) then max: = b; if (c> b) and (c> d) then max: = c; if (d> c) and (d> b) then max: = d; if (b> c) and (b< d) or  (b< c) and (b> d)  then med: = b; if (c> b) and (c< d) or  (c< b) and (c> d)  then med: = c; if (d> c) and (d< b) or  (d< c) and (d> b)  then med: = d; writeln(min, med, max); end.

Uses graphabc; procedure linefamily(x, y, a, h: integer); var       t: integer; begin       t : = a - x;       if (h > 0) then       begin               line(x, y, a, y);               linefamily(x + t div 4, y + h, a - t div 4, h div 2);               linefamily(x + t div 4, y - h, a - t div 4, h div 2);       end; end; begin       linefamily(20, window.height div 2, window.width - 20, window.height div 4); end. нечего использовать перемены в процедуре