Для кодирования одного из 148 значков требуется log(2)148 ≈ 8 бит.
Объем сообщения = 80*8 бит = 80*8 / 8 байт = 80 байт.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
<h3>А еще это можно решить, к примеру, так:</h3>
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.
Var fm, im: string;
i: integer;
begin
readln(фамилия, имя);
for i:= 1 to 20 do
writeln(имя,' ', фамилия);
readln;
end.
Var k,i,m,j:integer;
begin
k:=0;
for i:=10000 to 99999 do
begin
m:=0;
for j:=2 to round(sqrt(i)) do
if i mod j = 0 then m:=m+1;
if m=0 then k:=k+1;
end;
writeln('k = ',k);
end.
Результат:
k = 8363