Маша, Таня, Петя и Коля недавно праздновали дни рождения. Им исполнилось 9,10,11 и 12 лет. Им подарили: мяч, машинку, куклу и самокат. Определить кому из ребят что подарили и сколько лет им исполнилось, если среди ребят нет ровесников, и каждому из них досталась по одному подарку. А также известно, что: · Петя и Коля не получили мяч; · Маша получила куклу; · Коля получил не машинку; · самокат достался кому-то на одиннадцатилетие; · мяч достался десятилетней девочке; · Пете не девять лет.

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;   сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;   т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. байт состоит из 8 бит.  8 / 4 = 2 (количество битов чтобы закодировать каждый символ)  двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end. 

x - информационный вес одного символа

n - мощность алфавита (кол-во символов)

 

размер содержащейся в тексте информации находим по формуле:  

 

k - кол-во символов в тексте 

 

амазонка 

 

- один символ несет 8 битов (1 байт)

- байт в письме амазонки

 

омега:  

 

один символ несет 7 битов

байт в письме омеги 

 

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.