fork(1) download 
  1. program Gafforov_A_9V
  2. const m: array [1..3] of integer =(525,315,210);
  3. var i, x, y, z: integer
  4. procedure nod (a, b: integer; var c: integer);
  5. begin
  6. while a<>b do
  7. if a>b then a:=a-b else b:=b-a;
  8. c:=a
  9. end;
  10. begin
  11. x:=m[1]
  12. for i:=2 to 3 do
  13. begin
  14. y:=m[i];
  15. nod (x, y, z) ;
  16. x:=z
  17. end;
  18. writeln ('НОД=', x) 
  19. end.
Success #stdin #stdout #stderr 0.01s 5288KB
comments (?)
stdin 
Standard input is empty
stdout 
0
0
0
0
0
stderr 
prog.bc 1: syntax error
prog.bc 1: illegal character: _
prog.bc 2: syntax error
prog.bc 2: illegal character: :
prog.bc 2: syntax error
prog.bc 2: syntax error
prog.bc 3: syntax error
prog.bc 3: illegal character: :
prog.bc 4: syntax error
prog.bc 4: illegal character: :
prog.bc 4: syntax error
prog.bc 4: syntax error
prog.bc 4: illegal character: :
prog.bc 6: syntax error
prog.bc 7: syntax error
prog.bc 7: syntax error
prog.bc 7: illegal character: :
prog.bc 7: syntax error
prog.bc 7: illegal character: :
prog.bc 8: illegal character: :
prog.bc 11: illegal character: :
prog.bc 12: syntax error
prog.bc 12: illegal character: :
prog.bc 12: syntax error
prog.bc 14: illegal character: :
Runtime error (func=(main), adr=8): Function nod not defined.
prog.bc 16: illegal character: :
prog.bc 18: illegal character: '
prog.bc 18: illegal character: \320
prog.bc 18: illegal character: \235
prog.bc 18: illegal character: \320
prog.bc 18: illegal character: \236
prog.bc 18: illegal character: \320
prog.bc 18: illegal character: \224
prog.bc 18: syntax error
prog.bc 18: illegal character: '
prog.bc 19: syntax error
https://ideone.com/oSpkwX
language:
BC (bc 1.07.1)
created:
4 days 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!