1<span>035 в 6 вот кароче как-то так. В десятичную сначала потом складываешь, потом делением на 6.</span>
Во-первых, CR-RW многоразовый для записи и перезаписи, CR-R одноразовый. (Даже если записать крохотный файл, который ничего не занимает, больше уже ничего нельзя записать на CD-R)
Также они различаются скоростью записи данных.
<em>P.s. Если Вы отметите любое ре</em><em>шение как "Лучшее решение", то к Вам вернётся 25% потраченных пунктов на это Задание.</em>
Вот программа по формуле
var a:integer;
s:real;
begin
s:=1;
for a:=1 to 15 do begin
if (a mod 2 = 1) then s:=s+(2/a);
end;
writeln('сумма дробей с числителем = 2 а знаменателем от 1 до 15 = ',s);
end.
а вот программа по словесной задаче
var a,s:integer;
begin
s:=1;
for a:=10 to 99 do begin
if a mod 3 = 0 then s:=s*a;
end;
writeln('произведение двузначных чисел кратных 3 = ',s);
end.
Uses crt;var a:array[1..100] of integer;
b,k,l,i,n:integer;
begin
writeln('Skolko chesel vy bydete vvodit?');
read(n);
for i:=1 to n do begin
write('Vvedite ',i,' chislo: ');
read(a[i]);
end;
for i:=1 to n do begin
b:=a[i] div 100;
k:=a[i] div 10 mod 10;
l:=a[i] mod 10;
if (b mod 2 = 0) and (k mod 2 = 0 ) and (l mod 2 = 0) then writeln(a[i]);
end;
<span>end.</span>
В PascalABC
var n: integer;
s: string;
begin
write('число: '); readln(s);
n:=(StrToInt(s.Sorted.Reverse.JoinIntoString('')) - StrToInt(s.Sorted.JoinIntoString('')))*StrToInt(s); writeln('число: ',n);
<span>end.
</span>