Уточните каков обьём жёсткого диска компьютера к которому вы имеете доступ дома или в школе сколько страниц текста можно было бы разместить в памяти этого компьютера на странице размещается 40 строк по 60символов в каждой строке какой была бы высота такой стопки страниц если высота стопки из 100 страниц равна 1см

Мой жёсткий диск объемом 1 десятичный терабайт, т.е. 1 000 000 000 000 байт. если принять, что каждый символ кодируется одним байтом, то на одну страницу должно отводиться по 40 * 60 * 1 = 2 400 байт, тогда всего на диске поместится 1 000 000 000 000 / 2 400 = 416,7 млн страниц, это 4,17 млн стопок по 100 страниц. если высота каждой стопки 1 см, то общая высота 4,17 млн см = 41,7 км

1)  var   a: array[0..10] of integer;   i, s: integer; begin     for i : = 1 to 10 do   begin     a[i] : = random(60);     write(a[i], ' ');     if a[i]< =20 then s: =s+a[i]; end;   writeln;   writeln(s); end.2)  var   a: array[0..10] of integer;   i, s: integer; begin     for i : = 1 to 10 do   begin     a[i] : = random(60);     write(a[i], ' ');   // if (i mod 2=1) then s: =s+a[i]; раскоментируй, если сумму нужно искать среди нечетных номеров элементов.     // if (a[i] mod 2=1) then s: =s+a[i]; раскоментируй, если сумму нужно искать среди самих нечетных элементов.   end;     writeln;   writeln(s); end.

Var     d: integer;     repeat       readln(d);       case d of       1: writeln('понедельник');       2: writeln('вторник');       3: writeln('среда');       4: writeln('четверг');       5: writeln('пятница');       6: writeln('суббота');       7: writeln('воскресенье');       else writeln('конец работы! ')       end;   until (d< 1 or d> 7) end.