Найдите наибольший общий делитель двух чисел. Или для цикла (пока), или для цикла (до) в паскале.

Question

Информатика

Валена

10 марта, 20:33

Найдите наибольший общий делитель двух чисел. Или для цикла (пока), или для цикла (до) в паскале.

+1

Ответы (1)

Знаете ответ на вопрос?

Денесия · Answer 1

Var a, b, answer: integer;

function gcd (m, n: integer) : integer;

var modulo: integer;

begin

modulo : = m mod n;

if modulo = 0 then gcd : = n

else gcd : = gcd (n, modulo) end;

begin

write ('Введите 2 числа: ') ; readln (a, b) ;

answer : = gcd (a, b) ;

writeln ('Наибольший общий делитель: ', answer) ;

end.