fork(1) download
copy 
  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 8900KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Object: nil error: did not understand #integer
MessageNotUnderstood(Exception)>>signal (ExcHandling.st:254)
UndefinedObject(Object)>>doesNotUnderstand: #integer (SysExcept.st:1448)
UndefinedObject>>executeStatements (prog:2)
stderr
copy 
./prog:1: expected Eval, Namespace or class definition
./prog:3: expected object
https://ideone.com/3NGKVx
language:
Smalltalk (gst 3.2.5)
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!