Каждая страница учебника содержит 20 строк, в каждой строке 40 символов. Учебник состоит из 80 страниц. Определите информационный объем учебника в килобайтах, битах, мегабайтах.
265
361
Ответы на вопрос:
program exs; var a : array [1..1000] of integer; n, i : integer;
procedure qsort(l, r: integer); var i, j, key, buf : integer; begin i : = l; j: = r; key: =a[(l+r) div 2]; repeat while a[i] < key do inc(i); while a[j] > key do dec(j); if i< =j then begin buf: =a[i]; a[i]: =a[j]; a[j]: =buf; inc(i); dec(j); end; until (i> j); if (l < j) then qsort(l, j); if (i < r) then qsort(i, r); end;
begin readln(n); for i: = 1 to n do begin read(a[i]); end; qsort(1, n); for i: =1 to n do begin write(a[i], ' '); end; end.
Популярно: Информатика
-
zenix12211.02.2020 06:28
-
ImVadimka02.09.2020 17:16
-
Kursova8216.02.2022 18:06
-
КучеренкоИнна10.02.2023 01:52
-
спортжизнь25.12.2021 19:10
-
Mani210609.04.2023 06:36
-
hello12026.06.2023 17:02
-
Xalk2201.01.2021 08:49
-
StefanSalvatori19.05.2022 10:34
-
QbQbQb21.04.2020 05:43