Ну,короче,если обычный, 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 терабайт(максималка)
Названия и адреса файлов подгоните сами. Я выделю в коде жирным шрифтом.
uses crt;
var i,o:text;
s:string;
ans:integer;
begin
assign(i,'C:\Pascal\input.txt'); reset(i);
assign(o,'C:\Pascal\output.txt'); rewrite(o);
while eoln(i)<>true do
begin
readln(i,s);
if ((s[2]>s[1]) and (s[3]>s[2]) and (s[4]>s[3])) or ((s[2]<s[1]) and (s[3]<s[2]) and (s[4]<s[3])) then
begin
writeln(o,s);
inc(ans);
end;
end;
writeln(ans);
close(o);
<span>end.</span>
Некоторые части алгоритма могут выделяться в виде вспомогательных алгоритмов, решающих вспомогательные подзадачи.
Для реализации вспомогательных алгоритмов служат подпрограммы или процедуры.
Винчестер
................