fork(1) download 
  1. Program Diviseurs;
  2. Var n, m, r : Integer;
  3. Begin
  4. Writeln ('Donner un entier');
  5. Readln (n);
  6. m:=n;
  7. Writeln ('les chiffres de n et qui sont diviseurs : ');
  8. Repeat
  9. r:= m mod 10;
  10. m:= m div 10;
  11. If (n mod r = 0) Then Write (r, ' ');
  12. Until m=0;
  13. End.
Success #stdin #stdout 0s 288KB
comments (?)
stdin 
524
stdout 
Donner un entier
les chiffres de n et qui sont diviseurs : 
4 2
https://ideone.com/W99sed
language:
Pascal (fpc 3.0.4)
created:
8 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!