nr_perfe.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 35 行

program nr_perfect;
{Un nr. natural se numeste perfect, daca este egal cu suma divizorilor sai fara
el insusi.Ex: 6 este, deoarece 6=1+2+3. Sa se scrie o functie care returneaza
cate nr. perfecte se gasesc intr-un interval[p,q](unde p si q sunt doua valori
intregi cunoscute). Programul va mai contine o functie care testeaza daca un
numar dat ca parametru este perfect sau nu,returnand true sau false.}
var p,q:integer;
    function perfect(n:integer):boolean;
             var i,s:integer;
             begin
             s:=1;
             for i:=2 to n div 2 do
                 if n mod 2= 0 then s:=s+i;
             if s=n then perfect:=true
                     else perfect:=false;
             end;
    function cate(p,q:integer):integer;
             var i,nr:integer;
             begin
             nr:=0;
             for i:=p to q do
                 if perfect(i) then inc(nr);
             cate:=nr;
             end;
begin
repeat
write('intervalul este cuprins intre ');
read(p);
write('si ');
readln(q);
until p<=q;
write('intre ',p,' si ',q,' se gasesc ',cate(p,q),' numere perfecte');
writeln;
end.