:найти нод трех чисел. нод(а,в,с)=нод(нод(а,в),с) (выполнить в языке программирования pascal)

168

449

Посмотреть ответы 2

Ответы на вопрос:

Ma4oMatoy

Информатика

4,5(76 оценок)

//pascal abc.net 3.1 сборка 1219 var a,b,c: integer; function nod(a,b: integer): integer; begin while a*b< > 0 do if a> b then a: =a mod b else b: =b mod a; nod: =a+b; end; begin readln(a,b,c); writeln(nod(nod(a,b),c)); end. пример ввода: 15 25 45 пример вывода: 5