Program fantscrin;
const n = 17;
Var a: array [1..n] of integer;
i,s:integer;
Begin
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
write(a[i],' ');
s:=0;
for i:=1 to n do
if(a[i] > 5) then s:=s+a[i];
writeln('');
write('Сумма: ',s);
End.
Если считать, что используется однобайтная кодировка типа ASCII, то один символ кодируется одним байтом.
Тогда для строки потребуется 64×1 = 64 б, для страницы 48×64 = 3 072 б = 3 072 / 1 024 = 3 Кб, а весь учебник займет 512 × 3 = 1 536 Кб
Школьная библиотека разместится в 50 000 × 1536 = 76 800 000 Кб =
76 800 000 / 1024 = 75 000 Мб = 75 000 / 1024 ≈ 73.24 Гб
Количество дисков составит 75 000 / 700 ≈ 107.1, т.е. 108.
Var
a, b, c: integer;
begin
readln(a, b, c);
if(a * b * c mod 2 = 0) then writeln('Произведение этих чисел является четным числом.')
else writeln('Произведение этих чисел не является четным числом.');
if(a * b * c mod 4 = 0) then writeln('Произведение этих чисел кратно 4.')
else writeln('Произведение этих чисел не кратно 4.')
end.
Это самая крупная библиотека , существовавшая в 3-4 веках н.э. Во времена Юлия Цезаря, случился пожар, и большая часть библиотеки была уничтожена. Ходили слухи, что все таки она сохранилась. Но результатов никаких нет и поныне. Сейчас на ее месте находится новая библиотека "Библиотека Александрина".
Это как то в кратце.