Скорость передачи данных по некоторому каналу связи равна 642000 бит/с. определить время передачи файла размером 640 кбайт.

640 кбайт = 640*1024*8 =  5242880  бит то 5242880/642000=8,166479750778816 секунд

1) program lineynoeuravnenie; var a, b: integer; x: real; begin writeln ('введите коэффициенты a и b'); readln (a, b); x: =-b/a; write ('решите уравнение', x); end. 2) program veschestvennoe; var a, b, c: integer; d, x1, x2: real; begin writeln ('введите коэффициент a, b, c'); readln (a, b, c); if a=0 then begin x1: =-c/b; write ('одно решение', x1), end; d=b*b-4*a*c; if d< 0 then write ('корней нет'); if d=0 then begin x1: =-b/(2*a); write ('одно решение', x1); end; else begin x1: =(-b+sqrt(d))/(2*a); x2: =(-b-sqrt(d))/(2*a); write (x1,'',x2); end; end.

Получится такое < html> < head> < table border="1" width="500">       < tr >               < td width="150"> заголовок< /td>               < td width="350" > заголовок 1< /td>       < /tr>       < tr>               < td> ячейка 1< /td>               < td> ячейка 2< /td>       < /tr> < /table> < /head> < /html>