Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
НОД через функцию
const n = 2; function nod (a, b : integer) : integer; var temp : integer; begin while b > 0 do begin temp := a mod b; a := b; b := temp; end; nod := a; end; var i : integer; a : array [1..n] of integer; temp : integer; begin randomize; for i := 1 to n do begin a[i] := 2 + 2*random(90); write(a[i]:5); end; writeln; // a[1] := 122; a[2] := 140; temp := a[1]; for i := 2 to n do temp := nod(temp, a[i]); writeln(temp); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
135
Calcular digitos de un numero (hasta 4 digitos)
eliminar elemento de un arreglo
Trabajo pascal
Trang
integer32767
jugando
Calculatrice 1.0
Task 3
TID-CALCULATOR
stackse - search stackoverflow differently
Please log in to post a comment.