// сумма 2 членов ряда = 1- 1/2+1/3=0.83333333 примерно
Program SumPosl;
Uses Crt;
var i,n:integer;
c:real;
begin
c:=1;
clrscr;
write('Введите n:' );
readln(n);
for i:=2 to (n+1) do
if odd(i)=false then c:=c-(1/i)
else c:=c+(1/i);
writeln('Сумма n членов ряда:',c:5:5);
readkey;
end.
Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.
Ну типа это WWW это просто обзначает что ты на находишь в глобальной паутине
Дано:
N=8
x=800*600
V-?
Решение
N=2^i
8=2^i
i=3
x=800*600=480000бит
V=x*i=480000*3=1440000 бит