Закодировать арифметическим методом слово "кукушка"

256= 2^i=2^8следовательно i=8 битов

8*80*32=20480 битов

20480*2=40960 битов=5120 байт=5 килобайт

^ - это я так обозначила степень

i - количество информации(обычно обозначается большой буквой)

* - умножить

может кто перепишет на паскаль

вот на c:

#include < stdio.h> int main(void){  int km, day;   day = 1;   km = 10;   while (km < = 200)  {  if (km == 20)  {    printf("20km in %d day\n", day);     }     km += km / 10;   day++;   }  printf("< 200km in %d day", day);   printf("\n");   system("pause");   return 0; }

программа генерирует масив и присваевает значение 0 самому большому значению в массиве.

program d1varc: array[1..20] of integer; i,z: integer; beginrandomize; for i: =1 to 20 dobeginc[i]: =random(50); end; z: =c[1]; for i: =1 to 20 dobeginif c[i]> z then z: =c[i]; end; c[z]: =0; end.

var i,s,k: integer;

begin

for i: =-4 to -15 do begin

      inc(s,i); inc(k)

end;

write('ср арифм = ',s/k)

end.