Обоснуйте почему информационная деятельность жизненно необходима человеку

800*600=480000 байт

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

для начала переведем кбайты в биты:

2500кбайт=2500*1024*8=20480000бит,

затем найдем искомое   время: t=объём файла/скорость передачи,

t=20480000/1024000=20 секунд

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа