Ниже представлены 10 числовых строк. Необходимо получить 10 строк посредством RLE кодирования (Кодирование - id2071073820210320 от alena11021 20.03.2021 20:22

Question

Информатика: Ниже представлены 10 числовых строк. Необходимо получить 10 строк посредством RLE кодирования (Кодирование длинных серий). В ответ запишите разницу в длине между самой длинной и самой короткой строкой, полученными после кодирования. Пример кодирования длинных серий: → 9W3B24W1B14W 434334433213 443124221232 241432413422 143124133234 243134214213 333121112234 234322312233 431322442414 333224342112 433124214342

alena11021 · Accepted Answer

var
s:real;
flag,d,m:integer;
begin
  s:=10; d:=1;
while s<=100 do
begin
writeln('d: ',d,' s: ',s); {эта строка не обязательна, выводит на экран ежедневный пробег, как бы для контроля}
s:=s+s*0.1;
  d:=d+1;
  if s<20 then
   flag:=d;
end;
  writeln('> 20 km :', flag+1,' day');
  writeln('>100 km : ',d);
end.

MOGZ ответил