Помогите пожалуйста с задачами

[KREGI]

помогите решить, по времени не успеваю... за ранее спасибо
Да кстати, задачи на делфи

[Chudo4258]

8:

for i:=1 to d do
 if (d mod i =0) then begin
  if a*sqr(i)+b*sqr(i)+c*i+d=0 then writeln(i);
  if a*sqr(-i)+b*sqr(-i)+c*(-i)+d=0 then writeln(-i);
  end;

[Chudo4258]

for i:=1 to d do
 if (d mod i =0) then begin
  if a*sqr(i)+b*sqr(i)+c*i+d=0 then writeln(i);
  if a*sqr(-i)+b*sqr(-i)+c*(-i)+d=0 then writeln(-i);
  end;

[KREGI]

Chudo4258, спасибо, на одну задачу стало меньше...

[Chudo4258]

4:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var S,a,e:real;
    n:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('e= '); readln(e);
n:=0;
S:=0;
a:=exp(n*ln(1/2))+exp(n*ln(1/3));
inc(n);
while a>=e do
 begin
  a:=exp(n*ln(1/2))+exp(n*ln(1/3));
  inc(n);
  S:=S+a;
 end;
writeln(S);
readln;
end.

[Chudo4258]

9:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
function Pzaimn_Prost(x,y:integer):boolean;
var max,i:integer;
    t:boolean;
begin
 if x>y then max:=x
        else max:=y;
 t:=true;
 for i:=2 to max-1 do
  if (x mod i = 0) and (y mod i = 0) then t:=false;
 Pzaimn_Prost:=t;
end;

var p,q,i:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
readln(p);
readln(q);
for i:=2 to q-1 do
 if (q mod i = 0) and (Pzaimn_Prost(p,i)) then writeln(i);
readln
end.

[super-leon]

1234567890

[Chudo4258]

super-leon нужно создать отдельную тему. И напишите формулировку задачи.

[Chudo4258]

1:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var x,y,h,alf,gr:real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('x= '); readln(x);
write('h= '); readln(h);
y:=2;
while y<=3 do
 begin
  alf:=ARCTAN(SQRT(1-SQR(y/x))/(y/x)); // в радианах
  gr:=alf*180/pi;  writeln(gr:5:1);
  y:=y+h;
 end;
readln
end.

[Chudo4258]

2:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var i,j,n:integer;
    Ch,Zn,P:real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('n= ');readln(n);
P:=1;
for i:=1 to n do
begin
Ch:=0;
Zn:=0;
for j:=1 to i do
 begin
  Ch:=Ch+cos(j);
  Zn:=Zn+sin(j);
 end;
P:=P*(Ch/Zn);
end;
writeln(P:10:3);
readln
end.