Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Исправленный NOD без массивов и алгоритма Евклида
{ Алгоритм: взять меньшее из двух. Поделить его на 2, если большое число делится на это частное, то это НОД. Иначе, поделить маленькое число на 3 и так далее до половины от маленького числа. Поиск НОД. В целом работает, но различные крайние случаи не отрабатывает: например, если 50 25 или 50 19 } var a, b, nod, k : integer; flag : boolean; begin flag := FALSE; k := 2; readln ( a, b ); if a > b then begin nod := a; a := b; b := nod; end; while k <> a do begin if a mod k = 0 then if b mod k = 0 then begin nod := k; flag := TRUE; end k := k + 1; end; if flag then writeln (k) else writeln ('NO); end.
run
|
edit
|
history
|
help
0
zadacha9
7
jose messias de oliveira 600623130
suduko solver
test29
For1
444555666
jugando
урок 13 пример 3 параметры по значению и параметры переменные
перевод 16-ричного числа в 10-чное