В код программы (после команды загрузки картинки) напиши
Setwindowsize (10,10);
Вместо 10,10 можешь вставить свое число
Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее
Этот значок обозначает возведение в степень
Var s:string;
ar:array[1..10] of integer;
f:text;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
begin;
str(ar[i],s);
write(f,s,' ');
end;
close(f);
<span>end.</span>
Информация уменьшилась в 6 раз(2^6), всего шаров 64
256=2^8 ---> 8 бит для кодирования одного символа
F =8*30*70*5=84 000 бит весь текст;
t=1 мин =60 секунд
V =F/t =84 000/60= 1400 бит/c =175 байт/c