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 0.02s 25760KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
program Gafforov_A_9V
const m: array [1..3] of integer =(525,315,210);
var i, x, y, z: integer
procedure nod (a, b: integer; var c: integer);
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
c:=a
end;
begin
x:=m[1]
for i:=2 to 3 do
begin
y:=m[i];
nod (x, y, z) ;
x:=z
end;
writeln ('НОД=', x) 
end.
https://ideone.com/S9AIJa
language:
PHP (php 7.3.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!