program number1;
var a: array [1..5] of integer;
i,min,max: integer;
Begin
writeln('Введите 5 значений массива');
for i:=1 to 5 do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to 5 do
Begin
if (a[i]>=max) then max:=a[i];
if (a[i]<=min) then min:=a[i];
End;
for i:=1 to 5 do
Begin
if max=a[i] then
Begin
writeln('Максимальное значение: ',a[i],' [',i,']');
max:=a[i];
End;
if min=a[i] then
Begin
writeln('Минимальное значение: ',a[i],' [',i,']');
min:=a[i];
End;
End;
writeln('Среднее арифметическое: ',(min+max)/2);
End.
Ну,короче,если обычный, 12-см диск, то CD вмещает в себя 700 МБ информации. Есть,
правда, и диски с увеличенным объемом (т. н. "CD-R90"), но их
использование не особо рекомендуется, потому что "лишние" 100 МБ пишутся
в служебные области. Если же взять DVD диск, то его "стандартная"
емкость - 4.7 ГБ (десятичных, если в двоичных, то 4.38 ГБ) . Есть и
двухслойные диски (внешне неотличимы от обычных, только цена выше) . У
них емкость 8.4 ГБ. Где-то существуют и двухсторонние DVD диски.
Если взять маленький, 8-см диск, то у CD его емкость 210 МБ, а у DVD -1.4 ГБ.В wikipedii есть по-моему подробное объяснения(поэтому предлагаю тебе там немножко "погулять").
У Blue-ray: 25 Гб (однослойный) 50 Гб (двухслойный) 100 ГБ (3-слойные диски) и 128 ГБ (4-слойные диски).
Флешки разные,от 4гб до 4 терабайт(максималка)
За каждую клетку число зерен удваивается и мы получаем сумму такого ряда:
Это число равно 18 446 744 073 709 551 615.
Определим приблизительный объем зерна
18446744073709551615 / 15000000 ≈ 1 229 782 938 247м³
Если считать, что амбар имеет форму куба, длина его каждого измерения составит приблизительно ∛1229782938247 ≈ 10714м.
Если надо найти палиндром,идущий за числом N. То вот программа: