Заполнить таблицу характеристиками больших данных и традиционных данных

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)

640х250х4 = 640000 бит, что соответствует примерно 80 кбайтам. последняя 4 берется из необходимого количества битов для кодирования 16 цветов.

16-битной кодировке unicode.

один символ  s  =16 бит

количество бит  текстового файла    к= 128000 бит/с * 60 с=  7680000

количество символов к/s=7680000/16  =480000