fork(13) download
copy 
  1. Program Parfait;
  2. Var nb, d, som, a, b : integer;
  3. Begin
  4. Repeat
  5. Writeln('donner a et b');
  6. Readln(a,b);
  7. Until (1<a) and (a<b);
  8. For nb:=a To b Do
  9. Begin
  10. som:=0;
  11. For d:=1 To (nb div 2) Do
  12. If (nb mod d = 0) Then som:=som+d;
  13. If nb=som Then Writeln (nb, ' est parfait');
  14. End;
  15. End.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
2
100
stdout
copy 
donner a et b
6 est parfait
28 est parfait
https://ideone.com/xfIE8F
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!