Даны два текста, содержащих одинаковое количество символов. первый текст состоит из алфавита мощностью 32 символов, а второй текст – из 1024 символов. во сколько раз информации во втором тексте больше чем в первом? решение:

Объём информации во втором тексте будет в 2 раза больше, чем в первом, т.к. для кодирования символа 32-значного алфавита достаточно одного байта, тогда как 1024-символьному необходимо 2 байта под каждый символ. для просветления курить вики. статья -- "кодовая страница"

1024: 32= 32, в 32 раза

Program myach;   uses crt,graphabc;   var x: integer;   begin  x: =1;   for x: =190 to 465 do  begin  clrscr;   circle(150,150,15);   line(150,165,150,250);   line(150,250,130,270);   line(150,250,170,270);   line(150,180,180,175);   line(150,180,180,180);   circle(500,150,15);   line(500,165,500,250);   line(500,250,480,270);   line(500,250,520,270);   line(500,180,470,175);   line(500,180,470,180);   circle(x,170,10);   delay(5);   end;   for x: =465 downto 190 do  begin  clrscr;   circle(150,150,15);   line(150,165,150,250);   line(150,250,130,270);   line(150,250,170,270);   line(150,180,180,175);   line(150,180,180,180);   circle(500,150,15);   line(500,165,500,250);   line(500,250,480,270);   line(500,250,520,270);   line(500,180,470,175);   line(500,180,470,180);   circle(x,170,10);   delay(5);   end;   end.

Function min(a, b: real): real; begin       if ((a = b) or (a < b)) then result : = a         else result : = b; end; function max(a, b: real): real; begin       if ((a = b) or (a > b)) then result : = a         else result : = b; end; procedure prog(a, b, c, d: real); begin       writeln(max(a, b)+min(a, b) + min(c,d)); end; var a, b, c, d: real; begin       readln(a, b, c, d);       prog(a, b, c, d); end.вот, тут тебе и процедура, и функции: )