запишем условие: символы=40, N=64, I-?
решение: зная мощность алфавита, найдем вес одного символа
N=2^i, подставим в эту формулу число 64 и получим
64=2^i, перепишем левую часть как 2^6
2^6=2^i, отсюда i=6 бит
определим объем сообщения I=K*i=40*6=240 бит=30 байт
По-моему, ты не поставил какой-то знак перед последней скобкой в длинном выражении
Если не ошибаюсь, 255, т.к. название - строковый тип
Var a:integer;
begin
readln(a);
if ((a mod 3 <>0) and (a mod 10 = 0) and (a div 10>0)) or (a=0) then
writeln ('true')
else writeln ('false');
<span>end.</span>
Program n_1;
var n, i:integer;P, b, s: real;
begin
read(n, P);
s:=0;
for i:=1 to n do begin
read(b);
if b>P then s:=s+b;
end;
writeln(s:0:10);
end.