Пи - константа и (примерно) равна 3,14, а для возведения в квадрат в паскале есть крутая штука - sqr(R); . во второй
var x,y:real;
begin
writeln('введите число');
read(x);
y:= 1/(x+1);
write(x);
<span>end.</span>
Var a,b,n:integer;
begin
a:=1;
n:=-10;
while n<=15 do
begin
if n<0 then a:=a*n else b:=b+n;
n:=n+1;
end;
write (a:6,b:6);
<span>end.</span>
Это цикл. Начальное значение 1. Цикл будет выполняться 4 раза.
1. 1+1*2=3, теперь f равно 3.
2. 3+2*2=7, теперь f равно 7.
3. 7+3*2=13, теперь f равно 13.
4. 13+4*2=21.
После выполнения алгоритма f будет равно 21.
<span>Для обработки графической информации или редактировании графической информации</span>