radio sam slican a mrzi me da prepravim.
Code:
program savrsen;
var
i,n,m,suma:longint;
begin
write('Unesi neki broj: ');readln(m);
for n:=2 to m do
begin
suma:=1;
for i:=2 to n div 2 do
if n mod i=0
then suma:=suma+i;
if suma=n then writeln('Savrsen broj od 2 do ',m,' je ',n);
end;
readln
end.
Jel potpis treba pisanim ili
štampanim slovima?
___________________________________
______
[url=http://www.dizajnzona.com/foru
ms/]dizajnzona.com[/url]
[url=http://www.netizenfaction.com/
]netizenfaction.com[/url]
egoideas.
com
levodesn
o.com