Сколько времени потребуется для передачи текста книги со скоростью 24 кб/с, если в книге всего 750 страниц, на каждой странице 32 строки и в каждой строке 72 знака

3часа потребуется пиши

Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k: =0; s: =0; while n> 0 do begin c: = n mod 10; s: =s+c; k: =k+1; n: =n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa: =s/k; write ('среднее арифметическое =', sa) end.

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

 

решить на паскале?