Var n,m:integer;
begin
write('n = '); readln(n);
m:=(n div 100 * 10) + n mod 10;
writeln('m = ',m);
end.
Пример:
n = 672
m = 62
Var a,b,r:integer;
begin
readln(a,b);
if (a<0) and (b<0) then r:=sqr(a)+sqr(b)
else r:=abs(a-b);
write(r);
end.
<span>Делишь несколько раз на 10, каждый раз определяешь остаток от деления, если остаток -0, то счетчик + 1</span>
На один символ информации приходится 100/50=2 байта информации.(2 байта - это 16 бит).
Мощность алфавита составит 2∧16 (два в степени 16)=65536 символов