Ну,короче,если обычный, 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 терабайт(максималка)
Алг а1
нач
вещ первое, второе
ввод первое, второе
вывод первое/второе
кон
<em><u>Тестовое решение:</u></em>
>> 01:12:23 - Новая программа* - Выполнение начато
16.5 3
5.5
>> 01:12:34 - Новая программа* - Выполнение завершено
алг а2
нач
цел число1, число2, число3, произведение
ввод число1, число2, число3
произведение:= число1*число2*число3
если произведение <50 то
вывод 10*число1,", ",10*число2,", ",10*число3
иначе вывод произведение
все
кон
Тестовое решение:
>> 01:18:48 - Новая программа* - Выполнение начато
4 2 3
40, 20, 30
>> 01:18:59 - Новая программа* - Выполнение завершено
>> 01:20:19 - Новая программа* - Выполнение начато
5 6 7
210
>> 01:20:23 - Новая программа* - Выполнение завершено
Var x:real;
begin
readln(x);
if (x >= 0 and x <= 1)
then write(x * (x - 1))
else write(x * x - Sin(Pi * x * x));
end.
<em>MS DOS QBasic 1.0</em>
RANDOMIZE TIMER
CONST n = 9
DIM a(1 TO n) AS INTEGER
CLS
FOR i = 1 TO n
a(i) = INT(99 * RND)
PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF a(i) < a(j) THEN
t = a(i)
a(i) = a(j)
a(j) = t
END IF
NEXT j
NEXT i
FOR i = 1 TO n
PRINT a(i);
NEXT i
<u>Пример</u>
85 21 7 21 29 45 98 70 23
98 85 70 45 29 23 21 21 7