fork download
copy 
  1. program ideone;
  2. var
  3. a, b, c, k : integer;
  4. Procedure nod(a, b : integer; var n : integer);
  5. var
  6. r : integer;
  7. begin
  8. repeat
  9. r := a mod b;
  10. a := b; b := r
  11. until b = 0;
  12. n := a
  13. end;
  14. begin
  15. a := 6;
  16. b := 8;
  17. nod(a, b, k);
  18. if k = 1 then writeln('Числа взаимно простые')
  19. else writeln('Числа не взаимно простые')
  20. end.
  21.  
Success #stdin #stdout 0s 4492KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Числа не взаимно простые
https://ideone.com/Ftx6mR
language:
Pascal (fpc 3.0.4)
created:
5 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!