Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
НОД не по Евклиду и без массива
{ Алгоритм: взять меньшее из двух. Начать последовательно делить его на натуральные числа 2, 3, 4. Если большое число также делится на текущее натуралное число то записываем его в переменную НОД. Делаем так до тех пор, пока натуральное число не сравняется с маленьким заданным числом. Это и будет НОД. } 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 (nod) else writeln (1); end.
run
|
edit
|
history
|
help
0
[DE/GER] Caesar Chiffre (Verschlüsseln)
LogOp2
считалочка06
Mengubah desimal ke biner
Calculatrice 1.0
JESSICA GOMES DE SOUZA FERREIRA 600621634
Количество пар кр и не кр 11 с дельтой эффект и неэффект алгоритмы
zad27-notoptimal
Задание 27 (окончательный вариант) эффект и неэффект
AgentMaxence