Сколько раз выполнится цикл: i:=6; while i<6 do i:=i+3
сделать в программе паскаль

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.

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт

скор передачи=объём файла/время,отсюда  объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт

5`120`000 бит =  640 000 байт = 625 кб