Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
НОД через функцию
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
Opdracht_1
1
Lista
first
practica 9 ejercicio 1
solar system4 (update)
Vremenska prognoza
Menukar nilai1
6
eje8