2) Электронная книга в 211 страниц, на странице в среднем 37 строк по 68 символов в каждой. Какой объем занимает книга, если в кодировке, с которой записан текст 256 символов? ответ дать в мегабайтах.
комбинация компьютерных клавиш для IBM-совместимых компьютеров, вызываемая нажатием клавиши Delete при удерживании клавиш Control и Alt: Ctrl+Alt+Delete. Функция комбинации клавиш различна, но обычно она прерывает или облегчает прерывание функции. К примеру, в BIOS, DOS, OS/2, Windows 3.0 и более ранних версиях комбинация клавиш перезагружает компьютер. Начиная с Windows 3.1, команда вызывает диспетчер задач или компонент безопасности, облегчающий завершение сеанса Windows. Windows 8 и Windows 10 на данную комбинацию блокируют экран, для показа диспетчера задач используется Ctrl + ⇧ Shift + Esc.
У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы): uses Crt; const n = 10; var A: array [1..n] of integer; i: integer; begin ClrScr; Randomize; WriteLn ( ' Massiv I: '); for i:=1 to n do begin A[i] := 1+random(n); Write (A[i]:4); end; WriteLn; WriteLn ( ' Massiv II: '); for i:=1 to n do begin if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i]; Write (A[i]:4); end; ReadLn; end.
комбинация компьютерных клавиш для IBM-совместимых компьютеров, вызываемая нажатием клавиши Delete при удерживании клавиш Control и Alt: Ctrl+Alt+Delete. Функция комбинации клавиш различна, но обычно она прерывает или облегчает прерывание функции. К примеру, в BIOS, DOS, OS/2, Windows 3.0 и более ранних версиях комбинация клавиш перезагружает компьютер. Начиная с Windows 3.1, команда вызывает диспетчер задач или компонент безопасности, облегчающий завершение сеанса Windows. Windows 8 и Windows 10 на данную комбинацию блокируют экран, для показа диспетчера задач используется Ctrl + ⇧ Shift + Esc.
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
begin
A[i] := 1+random(n);
Write (A[i]:4);
end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
begin
if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
Write (A[i]:4);
end;
ReadLn;
end.