Помогите составить программу 1. нужна программа на тему Алгоритма Евклида, составьте пожалуйста,чтобы в паскаль её забить. Программа для нахождения наибольшего общего делителя.
Помогите составить программу
1. нужна программа на тему Алгоритма Евклида, составьте пожалуйста,чтобы в паскаль её забить.
Программа для нахождения наибольшего общего делителя.
Ответ(ы) на вопрос:
Гость
//Pascal ABC.NET v3.1 сборка 1172
var
a, b, nod: integer;
begin
read(a, b);
while a * b <> 0 do
if a > b then a := a mod b
else b := b mod a;
nod := a + b;
writeln(nod);
end.
Пример ввода:
1071
462
Пример вывода:
21
Не нашли ответ?
Похожие вопросы