begin writeln ('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin s := s + (x mod 10); x := x div 10; end;
Чтобы можно было декодировать однозначно, должно соблюдаться условие Фано - ни один код символа не является началом другого.
10 не подходит, т.к. на 10 уже начинаются кодыкоды В и Д
00 не подходит, так как на 0 начинается А
Остаётся 11 для Г, на 11 никакой другой код не начинается.
Ответ 4
.алгоритм вычисления произведение целых чисел
1)
var
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+sqrt(i);
writeln('S: ',s:4:2);
end.
2)
var
i,n:integer;
s,x:real;
begin
writeln('n, x ?');
readln(n);readln(x);
for i:=1 to n do
if x<>0 then
begin
if x>0 then
s:=s+exp(ln(sin(x)*i))
else
s:=s-exp(ln(sin(x)*i))
end;
writeln(s:4:2);
<span>end.</span>