Задание: Найти НОД трех чисел. НОД(а,в,с)=НОД(НОД(а,в),с) (выполнить в языке программирования Pascal)
Ответы:
22-02-2019 20:44
//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
Также наши пользователи интересуются:
Составить программу, нахождение степени числа, используя подпрограмму (функцию нахождения степени).Программа должна облодать интерфейсом (На паскале с описаниями) За 1 кг яблок и 1 кг груш заплатили 138 р., а за 2 кг яблок и 1 кг груш-193 р. найди цену 1 кг яблок и цену 1кг груш. НАПИШИТЕ РЕШЕНИЕ ЗАДАЧИ
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Задание: Найти НОД трех чисел. НОД(а,в,с)=НОД(НОД(а,в),с) (выполнить в языке программирования Pascal) » от пользователя ЛЕРА ЗУБАКИНА в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!