Question

Scrieti.un.program.in.pascal.in.care.sa.descompuneti numarul natural n in produsul de puteri ale divizorilor sai primi

Answer 1

1.Se citesc doua nr a ,b a <= b cate nr din intervalul închis a b sunt prime : rezolvare : Var d ,x ,a ,b,c:longing; p:boolean; Begin writeln ( 'dați a ') ;readln (a); writeln ( 'dați b ') ;readln (b); c:=0; For x:=a to b do begin p:=true; For d := 2 to x div 2 do If x mod d =0 then p:=false ; If p=true then c:=c+ 1 ; end; writeln ( 'sunt ',c,' nr prime ') ; readln; end.