Program n1;
var s: string;
begin
s:='stroka';
if length(s)<10 then s:=s+'КЛМНОПРСТ';
write(s);
end.
Uses crt;
var a,b:integer;
begin
randomize;
a:=random(100);
writeln(a);
repeat
readln(b);
if b=100 then writeln('дополнено');
if b<100 then writeln('прибавь еще');
if b>100 then writeln('убавь-ка');
until b=100;
end.
P = 2
Ответ a
================
Ну что ж ,снова я )
Честно говоря немного не понял задания ,но сделаю что могу =) Наверное имеется ввиду вес ОДНОГО символа этого сообщения ? Если так ,то :
Просто делим 450 битов на 150 символов.
450\150=3 бита
Ответ : 3 бита