Var a,b,i,s:integer;
begin
readln(a,b);
s:=0;
for i:=a to b do
if i mod 2=1 then s:=s+i;
writeln('s = ',s);
end.
Пример:
5 10
s = 21
Var x:integer;
begin
writeln('x=');
readln(x);
if (x mod 7=0) and ( x mod 2<>0) then writeln(' cislo neciotnoe i kratno semi ')
else
writeln('cislo ciotnoe i nekratno semi ');
readln;
end.
1 старик
2 золотой рыбкой
3 золотая рыбка - управляет вещами
Во-первых, CR-RW многоразовый для записи и перезаписи, CR-R одноразовый. (Даже если записать крохотный файл, который ничего не занимает, больше уже ничего нельзя записать на CD-R)
Также они различаются скоростью записи данных.
<em>P.s. Если Вы отметите любое ре</em><em>шение как "Лучшее решение", то к Вам вернётся 25% потраченных пунктов на это Задание.</em>