1. Чтобы узнать "мощность алфавита" надо узнать сначала сколькими битами кодируется один символ. 1,5 Кбайт переведем в байты 1,5 * 1024 = 1536 байт и переведем в биты 1536*8=12288 бит. Разделим это на количество символов в сообщении. 12288/768=16 бит. 2 в 16 степени это будет 512 символов т.е. мощность алфавита 512 символов. 2. если это продолжение первой задачи то решение такое. В одном сочинение 2 страницы по 40 строк и 50 символов каждой строке. Находим сколько всего будет символов в одном сочинение 2*40*50=4000 символов. Из первого пункта видно что 1 символ это 16 бит. Найдем сколько занимает одно сочинение объема. 4000*16=128000 бит переведем в байты. 128000/8=8000 байт. Объем дискеты 1,44 Мбайт переведем в байты 1,44*1024*1024=1509949,44 разделим чтобы узнать сколько всего сочинений можно поместить на дискету 1509949,44/8000=188,74368 округлим и получим что на одну дискету уместится 188 сочинений.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin var k:=0; var n:=ReadInteger(); var nmax:=0; while n<>0 do begin Inc(k); if n mod 10 = 0 then if n>nmax then nmax:=n; n:=ReadInteger() end; var cntrl:=ReadInteger(); Writeln('Получено ',k,' чисел'); Writeln('Полученное контрольное значение: ',cntrl); Writeln('Вычисленное контрольное значение: ',nmax); if cntrl=nmax then Writeln('Контроль пройден') else Writeln('Контроль не пройден') end.