Блок-схема - в прилагаемом файле.
Program P;
var a,b,s:real;
begin
write('a='); readln(a);
write('b='); readln(b);
s:=a*b/2;
writeln('s=',s);
end.
Пример:
a=3
b=4
s=6
Юзер по русски будет пользователь
begin
var a := SeqWhile(5, x -> x + 5, x -> x <= 90).ToArray;
a.Println;
end.
Var
i,min:integer;
m:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(m[i]);
if i=1 then min:=m[i];
if m[i]<min then min:=m[i];
end;
for i:=1 to 10 do
begin
if m[i]=0 then m[i]:=min;
write(m[i],' ');
end;
<span>end.</span>
Обозначим:
N - мощность алфавита;
V - объем сообщения (в битах);
K - количество букв в сообщении;
i - количество бит на 1 символ.
Формулы:
N = 2^i;
i = V/K
Переведем объем из КБ в байты: 35* 8 * 1024 = 286720 бит.
Чтобы найти мощность алфавита, нужно найти количество бит на символ. Используем формулу: i = V/K.
i = 286720 бит/71680 симв. = 4 бита.
Зная i, можем найти мощность алфавита: N = 2^i.
N = 2^4 = 16.
Ответ: 16.