Const
c1='Математический анализ';
c2='Алгебра и геометрия';
c3='Информатика';
c4='История';
c5='Философия';
var
o: text;
begin
AssignFile(o, 'Output.dat');
Rewrite(o);
write(o,c1,'|',c2,'|',c3,'|',c4,'|',c5);
CloseFile(o)
end.
Var i,sum:integer; a:array[1..10] of integer;
begin;
for i:=1 to 10 do readln(a[i]); next i;
sum:=0;
for i:=1 to 10 do sum:=sum+a[i]; next i;
writeln('Сумма элементов = ',sum);
end.
Во-первых, CR-RW многоразовый для записи и перезаписи, CR-R одноразовый. (Даже если записать крохотный файл, который ничего не занимает, больше уже ничего нельзя записать на CD-R)
Также они различаются скоростью записи данных.
<em>P.s. Если Вы отметите любое ре</em><em>шение как "Лучшее решение", то к Вам вернётся 25% потраченных пунктов на это Задание.</em>
(5*60*16*64)/1024=(75*2^2*2^4*2^6)/2^10=75*4=300(Мб)
Var f: real; x :integer;
begin //Ввод writeln ('введите x'); readln (x);
//решение
f:= x-(Power(x,3)/6)+(Power(x,5)/120)-(Power(x,7)/5040)+(Power(x,9)/362880)-(Power(x,11)/39916800)+(Power(x,13)/6227020800); {f:=Power(x,2);} //вывод writeln ('f = ', f); end.