2текста содержат одинаковое количество символов первый текст составлен в алфавите мощностью 32 символа второй мощностью 64 символа во сколько раз различаются информационные объемы этих текстов
d := sqr (b) - 4 * a * c; if d < 0 then writeln ('Корней нет') else begin x1 := (-b + sqrt (d))/(2*a); x2 := (-b - sqrt (d))/(2*a); if x1 <> x2 then begin writeln ('x1=',x1); writeln ('x2=',x2); s := x1+x2; writeln ('s=',s); end else writeln ('x=s=',x1); end; end.
Program n1; const razmer = 2001; var a:array [1..100] of integer; b:array [0..100,0..100] of integer; i,j,min:integer; begin writeln('Исходный массив: '); for i:=1 to 100 do begin a[i]:=random(razmer)-razmer div 2; write(a[i],' '); b[i,0]:=a[i]; b[0,i]:=a[i]; end; writeln;
min:=a[1]+a[2];
writeln('Все возможные значения попарных сумм:'); for i:=1 to 100 do begin for j:=1 to i-1 do begin b[i,j]:=b[0,j]+b[i,0]; write(b[i,j],' '); if b[i,j]<min then min:=b[i,j]; end; writeln; end;
writeln('Наименьшее значение попарной суммы: ',min); end.
ОТВЕТ:В 2раза