Следовательно для кодирования 1 символа требуется 8 бит = 1 байт, поэтому информационный объем текста из 100 символов будет равен 100 байт.
abadaeva
11.03.2021
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.