Там не три буквы н .в слове понятно.
Program calculator;
Var a,b: real;
Begin
Write('Первое число:');
readln (a);
Write('Второе число:');
readln (b);
Write('Результат: ',a+b);
End.
<span><span>program qwr;
uses crt;
var
f : real;
i : byte;
z,a : array [0..3] of real;
begin
for i:=1 to 3 do
begin
write('z[ ',i,']= ');
readln(z[i]);
end;
for i:=1 to 3 do
begin
write('a[ ',i,']= ');
readln(a[i]);
end;
writeln(' ______________________');
writeln(' Z[i] | A[i] | f ');
for i:=1 to 3 do
begin
f:=exp(ln(z[i]+a[i])*(3/2));
writeln(' ',z[i]:(3),' | ',a[i]:(3),' | ',f:(3):(2));
end;
writeln(' _______|_______|______');
end.</span></span>
Сначала определим вес одного символа-i. Вес символа определяем по формуле: I:k, где I - 40 байт, а k-40 символов. 40:40 =1 байт. мощность алфавита определяем по формуле: N=2^i, где N-мощность алфавита, i-вес символа ( бит ). 1 байт = 8 бит. отсюда N = 2^8 = 256 бит... или же если не переводить в биты: 2^1 = 2....