Если не ошибаюсь, то (-3;-8)
Нужно сложить все иксы вместе и все игрики(х; у), а т.к. нужно начальную точку узнать, то меняем знаки на противоположные.
Program gt;
var p:real;
a,b,w:integer;
begin
a:=-1;
b:=1;
w:=-1;
while a<=103 do
begin
a:=a+2;
b:=b+2;
w:=w*-1;
p:=p+1/a*b*w;
end;
writeln(p);
end.
2)
program gt;
var p:real;a,b,w:integer;
begin
a:=-1;b:=1;w:=-1;p:=0;
while a<=103 do
begin
a:=a+2;
b:=b+2;
w:=w*-1;
p:=p+(1/(a*b))*w;
end;
writeln(p);
<span>end.
1-первый случай
2-второй случай</span>
//PascalABC
//NaaMan
var
V, pi, h, r : real;
begin
pi := 3.1415926;
write('Укажите радиус основания конуса > ');
readln(r);
write('Введите высоту конуса > ');
readln(h);
V := 1 / 3 * pi * r * r * h;
writeln('Объем конуса V = ', V);
end.
Если речь о Паскале, то после case может следовать переменная порядкового или строкового типа.