Оцените количество книг, хранимых на сервере, если известны следующие факты:

Число страниц в книге составляет 1024.

Каждый символ кодируется 2 байтами.

Доля страниц в книге, занимаемых иллюстрациями, равна 1/2, причём каждая иллюстрация занимает ровно половину страницы.

Информационный объём каждой иллюстрации составляет 4 МБ.

Количество строк на странице составляет 128 строк, причём каждая строка содержит 64 символа.

Объём памяти, занимаемый всеми книгами на сервере, составляет 25 020 МБ.

Объяснение:

Оценим объем одной книги.

В книге 512 иллюстраций и каждая занимает по 4 МБ, всего Sp = 512 * 4 МБ = 2048 МБ.

Текст занимает 3/4 объема книги и его объем равен:

St = 3/4 * 1024 * 128 * 64 * 2 байт = 12 МБ

Всего книга занимает St + Sp = 2048 + 12 = 2060 Мб

Т.е. на сервере всего N = 25020 МБ : 2060 МБ ≈ 12 книг

язык си(откомпилирован и проверен был в dev-c++)

#include < stdio.h> #include < stdlib.h> #include < conio.h> int main(){      int a, b, c;       printf("\n vvedite 3 chisla :   ");       scanf("%d" "%d" "%d", & a, & b, & c);             if (a > b & & a > c) printf("\n a = %d", a);       if (b > c & & b > a) printf("\n b = %d", b);       if (c > b & & c > a) printf("\n c = %d", c);       if (a == b & & a > c) printf("\n a = %d b = %d", a, b);       if (a == c & & a > b) printf("\n a = %d c = %d", a, c);       if (b == c & & b > c) printf("\n b = %d c = %d", b, c);       if (a == b & & a == c) printf("\n a = %d b = %d c = %d", a, b, c);   printf("\n\n press ");   getch( );   return 0; }

паскаль (откомпилирован и проверен был в pascal abc)

program z1; uses crt; var a, b , c: integer; beginwrite('vvedite 3 chisla:   '); readln(a, b, c); if (a > b) and (a > c) then writeln(' a = ', a); if (b > c) and (b > a) then writeln(' b = ', b); if (c > a) and (c > b) then writeln(' c = ', c); if (a = b) and (a > c) then writeln(' a = ', a, ' b = ', b); if (a = c) and (a > b) then writeln(' a = ', a, ' c = ', c); if (b = c) and (b > c) then writeln(' b = ', c, ' c = ', c); if (a = b) and (a = c) then writeln(' a = ', a, ' b = ', b, ' c = ', c); end.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.