Цепочка одинаковых символов заменяется на последовательность: количество повторений и сам символ.
7A1P1E1L1S1I7N
32=2^5; тоесть один символ равен 5 битам , поэтому 5*50=250 бит или 31,25 байт.
Поскольку повтор вопроса, будет повтор ответа)
program p1;
var
n,m,s:real;
i:integer;
a:array[1..7] of real;
begin
write('Write n: '); readln(n);
write('Write m: '); readln(m);
writeln('Enter the weight of things: ');
for i:=1 to 7 do
read(a[i]);
s:=0;
for i:=1 to 6 do
s:=s+a[i];
if s>20
then
begin
s:=(s-20)*n;
writeln('For luggage: ',s:0:2);
end
else
writeln('For luggage: ',s:0:2);
if a[7]>5
then
begin
a[7]:=(a[7]-5)*m;
writeln('For hand luggage: ',a[7]:0:2);
end
else
writeln('For hand luggage: ',a[7]:0:2);
readln
end.
<span>а:= а - в
20 символов ( . ) ( . )
</span>
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger(15);
var s:=Range(0,a.Length-1,2).Select(i->a[i]);
Writeln('Среднее геометрическое элементов на нечетных позициях ',
(s.Aggregate(1.0,(p,q)->(p*q)))**(1/s.Count))
end.