1 страница содержит 50 строк по 40 символов. Книга содержит 250 страниц. Определите:
1. информационный объем страницы?
2. информационный объем книги?
3. сколько книг вместиться на 1 дискету (объем дискеты= 1,44 Мб)?
4. сколько книг вместится на 1 CD-Disk (объем диска = 800 Мб)?

(2)-двоичная,(8)-восьмеричная.1)11011(2)= 33(8)=27(10)=1в(16)2)101111(2)=57(8)=47(10)=2f(16)3)11001100(2)=294(8)=204(10)=cc(16)4)100100111000(2)=4470(8)=2360(10)=938(16)

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.