var n,i,rez:integer;
begin
write('Введите n: ');
readln(n);
rez:=0;
for i:=1 to n do
if odd(i) then rez:=rez+i
else rez:=rez-i;
writeln('rez=',rez);
end.
{конструкция else для того если будут введены отрицательные x y}
var
x,y:real;begin
readln(x,y);
if (x*x*x*x*x+y)>0 then
writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x)))
else
writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x)));
<span>end.</span>
Ответ:
Объяснение:
Древнегреческий миф о Минотавре
2356 книг * 1,25 мб = 2945 мб - объём всех книг
2946 мб / 600 мб = 5 дисков
Ответ 5