var N,i,a,p:integer;
BEGIN
readln(N);
p:=1;
for i:=1 to N do begin
read(a);
if (a>9) and (a<100) then
p:=p*a;
end;
writeln(p);
end.
Дано:
Объем сообщения = 450 байт
Количество символов = 150
Решение:
1. Вес одного символа:
450/150 = 3 (бита)
2. Мощность алфавита:
2^3 = 8
begin
var x: integer;
var s: integer;
var Count := 0;
repeat
if not TryRead(x) then
begin
Writeln('This is not the integer number, try again');
continue
end;
s += x;
Count += 1;
until x = 0;
Println('Average =', s / (Count - 1))
end.
В результате выполнения программы будет напечатано 60