<u><em>Не пойму, где это может понадобиться, но пожалуйста:</em></u>
3762194662274677225006147833619028325244330646204236432925139720030670885330519044445501804761927745268763736929034118016031519410956059710016491867886889157890211484313592791062569915129529790346983079610400317269003975512764853909825684309294001486918614927217865484171497622917064676132001029225523861302285726809602736311578770958185727882065830756366057561021042715214545162477118465368433226000538225835881149829186249682400183653494069108786491864970103748052744856652666373379197565574074550935728305785527534076832933033391949562148135756886265861748671407745362911914163091988879273202451394592768
Const
n=10;
var
i,im:integer;
a:array[1..10] of integer;
begin
Randomize;
im:=1;
for i:=1 to n do begin
a[i]:=Random(21)+1;
Write(a[i],' ');
if a[i]<a[im] then im:=i
end;
Writeln;
Writeln('Минимальный элемент a[',im,']=',a[im])
end.
<u>Пример</u>
20 13 16 7 9 4 21 13 2 10
Минимальный элемент a[9]=2
Var
x, y: real;
begin
readln(x, y);
if (x * x + y * y <= 36) and (x >= 2) then
writeln('True')
else
writeln('False');
end.
5 байт=40 бит
8 килобайт=8192 байт
1 мегабайт=131072 байт
88 бит=11 байт
<span>5120 терабайт =5242880 гигабайт</span>
Файл - структура данных, распознаваемых ПК. Каталог - список файлов с указанием места хранения на винчестере.