При использовании 256-символьного алфавита для записи одного символа требуется log(2)256 = 8 бит = 1 байт. Количество информации в сообщении = 3072*1 байт = 3072/1024 Кбайт = 3 Кбайта
// 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.
Не вижу и малейшего отношения к программированию. Что именно вы хотите видеть в программном коде ?
ответ: Алеша, Боря, Витя. Алеша с кем-то идет к троллейбусу, когда подходит с ним к остановке появляется третий друг, который кричит из окна Боре (Значит Алена шел с Борей к троллейбусу). Исходя из этого Витя ездит на автобусе. Боря на троллейбусе (ибо он проводил друга до остановки, значит сам не поехал на троллейбусе, т.к. тогда было бы "вместе" шли или подобное), а значит троллейбус ему не нужен, а нужен трамвай.
Количество информации в сообщении = 3072*1 байт = 3072/1024 Кбайт = 3 Кбайта