Var
S:real;
N,i:integer;
Begin
Write('N = ');
ReadLn(N);
S:=1;
For i:= 1 to N do
S:=S+Sqr(i+N);
WriteLn('S = ',S);
End.
1. 99
2. 5
3. 2
_____________________________________________________________
Я не знаю как это сделать в паропаскале, но могу лишь чуть-чуть подтолкнуть. Нужно сотавить уравнение круга (x-a)^2+(y-b)^2=r^2;
Затем вместо х и y подставить координаты точки в получившееся уравнение, три случая:
*если то что слево<то что справо, то точка внутри окружности
*если то что слево уравнения == то что справа то на окружности
* иначе вне окружности
На паскале:
begin
writeln(ord('5'));
end.
Результат:
53