Var a,b,c,d,e,x: integer; BEGIN readln(a,b,c,d,e); if {1} a>b then begin x:=a; a:=b; b:=x; end; if {2} c>d then begin x:=c; c:=d; d:=x; end; if {3} a>c then begin x:=a; a:=c; c:=x; x:=b; b:=d; d:=x; end; if {4} c>e then if {5} b>c then if {6} b>d then if {7} a>e then begin x:=e; e:=b; b:=a; a:=x; end else begin x:=e; e:=b; b:=x; end else if {7} a>e then begin x:=e; e:=d; d:=b; b:=a; a:=x; end else begin x:=e; e:=d; d:=b; b:=x; end else if {6} a>e then begin x:=e; e:=d; d:=c; c:=b; b:=a; a:=x; end else if {7} b>e then begin x:=e; e:=d; d:=c; c:=b; b:=x; end else begin x:=e; e:=d; d:=c; c:=x; end else if {5} d>e then if {6} b>e then if {7} b>d then begin x:=e; e:=b; b:=c; c:=x; end else begin x:=e; e:=d; d:=b; b:=c; c:=x; end else if {7} b>c then begin x:=b; b:=c; c:=x; x:=e; e:=d; d:=x; end else begin x:=e; e:=d; d:=x; end else if {6} b>d then if {7} b>e then begin x:=b; b:=c; c:=d; d:=e; e:=x; end else begin x:=b; b:=c; c:=d; d:=x; end else if {7} b>c then begin x:=b; b:=c; c:=x; end; writeln; writeln(a,' ',b,' ',c,' ',d,' ',e); END.
Алгоритм: for j := 1 to N do if (8 <= a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1
for j := 1 to N - перебор всех элементов массива (8 <= a[j]) and (a[j] <= 63) - восьмеричная запись чисел от 8₁₀ до 63₁₀ содержит ровно две цифры (a[j] div 8 < a[j] mod 8) - первая (старшая) цифра меньше второй (младшей) при восьмеричная запись чисел от 8₁₀ до 63₁₀ k:=k + 1 - счётчик количества элементов массива соответствующих условиям
Программа целиком: const N=40; var a: array [1..N] of integer; i, j, k: longint; begin for i:=1 to N do readln(a[i]); for j := 1 to N do if (8 <= a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1; writeln('Количество элементов массива, восьмеричная запись которого содержит ровно две цифры, причем первая (старшая) цифра меньше второй (младшей), равно: ',k); end.
680 Кб = 5570560 бит = 696320 байт = 0,664 Мб = 0,000648 Гб.
3520 байт = 28160 бит = 3,4375 Кб = 0,003357 Мб = 0,0000032783 Гб
5 гигабайт = 42949672960 бит = 5368709120 байт = 5242880 Кб = 5120 Мб = 0,0049 Тб = 0,0000047684 Пб
Объяснение:
1 - 680 Кб =
1) 680 * 1024 байт * 8 бит = 5570560 бит
2) 680 * 1024 байт = 696320 байт
3) 680 / 1024 = 0,664 Мб
4) 680 / 1024 = 0,000648 Гб
Дальше не делится.
2 - 3520 байт =
1) 3520 * 8 бит = 28160 бит
2) 3520 / 1024 = 3,4375 Кб
3) 3,4375 / 1024 = 0,003357 Мб
4) 0,003357 / 1024 = 0,0000032783 Гб
Дальше не делится.
3 - 5 гигабайт =
1) 5 * 1024 Мб = 5120 Мб
2) 5120 * 1024 Кб = 5242880 Кб
3) 5242880 * 1024 байт = 5368709120 байт
4) 5368709120 * 8 бит = 42949672960 бит
5) 5 Гб / 1024 = 0,0049 Тб
6) 0,0049 Тб / 1024 = 0,0000047684 Пб
Дальше не делится.