Napisati program koji izracunava aritmeticku sredinu unteih
brojeva koji su savrseni (zbir delilaca jednak je tom broju
npr. 6=1+2+3 ili 28=1+2+4+7+14).
Ja sam to ovako pokusao da resim ali ne radi.
Program savrseni;
uses crt;
var
broj,zbir,brojac,i,n,s,delilac:integer;
AS:real;
begin
clrscr;
brojac:=0;
zbir:=0;
delilac:=1;
writeln ('Koliko brojeva unosite? '); readln (n);
for i:=1 to n do
begin
write ('Unesite ',i ,'. broj ');
readln (broj);
for s:=2 to (broj-1) do
if (broj mod s=0) then delilac:=delilac+s;
if delilac=broj then
begin
brojac:=brojac+1;
zbir:=zbir+broj;
end;
end;
if brojac=0 then writeln ('Niste uneli ni jedan savrsen broj!');
AS:=zbir/brojac;
writeln ('Aritmeticka sredina unetih savrsenih brojeva je ',AS:5:2);
readln
end.
Plz help!
[Ovu poruku je menjao Tisma dana 16.01.2005. u 14:57 GMT+1]