Решение. Предположим, что в учебнике около 200 страниц, на странице примерно 50 строк по 60 символов. Итого, если считать, что вся книга заполнена текстом, а рисунков нет, в книге 200*50*60=600 тыс. символов. Поскольку наш подсчет все равно приближенный, будем считать, что 1Кбайт» 1000 байт. Тогда получится, что информационный объем учебника около 600 Кбайт, т. е. Несколько больше полмегабайта.
var a: array[1..t] of integer; i, min, k, tmp, klv, z: integer; b: boolean;
begin
for i := 1 to t do a[i] := random(10) + 1; //Рандом чисел от 1 до 10
writeln('Массив:'); for i := 1 to t do write(' ', a[i]:2); writeln;
for i := 1 to t - 1 do for k := i + 1 to t do if a[i] > a[k] then begin tmp := a[k]; a[k] := a[i]; a[i] := tmp; end;
writeln('После сортировки:'); for i := 1 to t do write(' ', a[i]:2); writeln;
klv := 0; writeln('Введите число X:'); readln(z); for i := 1 to t do if a[i] = z then begin b := true; inc(klv); end; if b then begin writeln('Число ', z, ' встречается ', klv, ' раз(а).'); end;
if b = false then writeln('Число ', z, ' не встречается.'); end.
Const n=20; var a:array[1..n] of integer; i,j,t,i1,i2,x:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=Random(15); Write(a[i],' ') end; Writeln; for i:=1 to n-1 do for j:=1 to n-i do if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end; Writeln('Отсортированный массив:'); for i:=1 to n do Write(a[i],' '); Writeln; write('x = '); readln(x); i1:=1; i2:=n; repeat i:=(i1+i2) div 2; if a[i]<x then i1:=(i1+i2) div 2+1; if a[i]>x then i2:=(i1+i2) div 2-1; until (a[i]=x)or(i1>i2); if a[i]=x then begin while (i>0)and(a[i]=x) do i:=i-1; i:=i+1; j:=i; while (i<=n)and(a[i]=x) do i:=i+1; writeln('Число ',x,' встречается ',i-j,' раз(а)'); end else writeln('Число ',x,' не встречается'); writeln; end.
Решение. Предположим, что в учебнике около 200 страниц, на странице примерно 50 строк по 60 символов. Итого, если считать, что вся книга заполнена текстом, а рисунков нет, в книге 200*50*60=600 тыс. символов. Поскольку наш подсчет все равно приближенный, будем считать, что 1Кбайт» 1000 байт. Тогда получится, что информационный объем учебника около 600 Кбайт, т. е. Несколько больше полмегабайта.