Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
НОД по моему
{ Поиск НОД. В целом работает, но различные крайние случаи не отрабатывает: например, если 50 25 или 50 19 } var a, b, nod, k : integer; flag : boolean; begin flag := TRUE; k := 2; readln ( a, b ); if a < b then begin nod := a; a := b; b := nod; end; while flag do begin if b mod k = 0 then begin nod := b div k; if a mod nod = 0 then begin writeln (nod); flag := FALSE; end else k := k + 1; end; end; end.
run
|
edit
|
history
|
help
0
zadacha9
ALEX LIMA NEPOMUCENO 600624764
practica 2 ejercicio 3
abcd...
test28
Calculatrice (case of)
practica 7 ejercicio 2
вывод номера символа на экран
Localisation ND
Задачи на div-mod