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

Число страниц в книге составляет 1024.
Каждый символ кодируется 2 байтами.
Доля страниц в книге, занимаемых иллюстрациями, равна 1/2, причём каждая иллюстрация занимает ровно половину страницы.
Информационный объём каждой иллюстрации составляет 4 МБ.
Количество строк на странице составляет 128 строк, причём каждая строка содержит 64 символа.
Объём памяти, занимаемый всеми книгами на сервере, составляет 25 020 МБ.

var a,b,i,s: integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.

#include < cstdlib> #include < iostream> using namespace std; int main(int argc, char *argv[]){      int n;       cout< < "введите количество элементов массива."< < endl;       cin> > n;       int mas1[n];       int mas2[n];             for(int i=0; i< n; i++){      mas1[i] = rand()%100; //заполняем массив случайными числами от 0 до 100      if(mas1[i]%10 == 4) {                                mas2[i]=mas1[i]/2;                                 cout< < "замена! ";                                 }      else {cout< < "\t";                 mas2[i]=mas1[i];                 }      cout< < mas1[i]< < '\t'< < mas2[i]< < endl;       }      system("pause");       return exit_success; }

320 * 1024 = 327680 мб

327680 / 700 = ,=> нужно 469 дисков. 469 * 15грамм = 7035 гр = 7кг 35 гр

microsoft visual basic 2010(более ранние тоже прокатят)

  dim i as single      private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load              i = val(inputbox("введите число"))              if i > = 0 then                      i = i - 50              else                      i = i + 100              end if              msgbox(i)      end sub

просто на basic

dim i as single

input(i)

if i > = 0 then                      i = i - 50              else                      i = i + 100              end if

print i

end