Для хранения ткста на диске требуется 10500байт.сколько тсраницы займет этот текст при печати, если на странице размещяется 30 строк по 70 символов в строке? а)7 б)4 в)2 г)5 д)10 какое количество информации несет сообщение о том, что нужная вам программа находится на одном из восьми дисков? а)2 б)3 в)4 г)8

1. 1)30*70=2100(байт) требуется для хранения 1 страницы

    2)10500/2100=5(стр) займет этот текст при печати

  ответ: г)

2. т.к. программа находится на одном из восьми дисков=> n=8

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

n=2^i

подставим 

8=2^i

i=3 

ответ: б)

{  s(x) = 1 + 3x^2/1! + 5x^4/2! + =   = (x)' + (x^3/1! )' + (x^5/2! )' + =   = (x + x^3/1! + x^5/2! + )' =   = (x * (1 + x^2/1! + x^4/2! + )' =   = (x ^ e^(x^2))' =   = e^(x^2) + x * 2x*e^(x^2) =   = (1 + 2x^2)*e^(x^2) =   = y(x) } const n = 10; function y(x: real): real; begin   y : = (1 + 2*sqr(x)) * exp(sqr(x)); end; var i: integer; x: real; begin   for i : = 1 to n do   begin   x : = i/n;   writeln(x: 3,' : ',y(x));   end; end.

Вот два варианта решения: 1)в первом варианте программа выдает неверный ответ, если в числе есть хотя бы один ноль. var   a, n, i, min, tmp, m: integer;   begin   m : = 1;   read(a);   tmp : = a;   n : = 0;   min : = 10;   while tmp > 0 do     begin     n : = n + 1;     if(tmp mod 10 < min) then min : = tmp mod 10;     tmp : = tmp div 10;   end;   for i : = 1 to n do     m : = m * 10;   a : = a + (min * m);   a : = a * 10;   a : = a + min;   write(a); end. 2)второй вариант с использованием строки: var   s: string;   i, min: integer;   begin   readln(s);   min : = 10;   for i : = 1 to length(s) do     if(strtoint(s[i]) < min) then min : = strtoint(s[i]);   s : = s + inttostr(min);   s : = inttostr(min) + s;   writeln(s); end.