Написать программу для нахождения а) НОД, б) НОК двух натуральных чисел а, b.

Question

Информатика

Божена

28 февраля, 20:40

Написать программу для нахождения а) НОД, б) НОК двух натуральных чисел а, b.

+3

Ответы (1)

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

Вильгельмина · Answer 1

Program gt1;

var m, n, q, r, t:longint;

begin

read (m, n) ;

t:=m*n;

r:=1;

while r0 do

begin

q:=m div n;

r:=m mod n;

if (r0) then begin

m:=n;

n:=r;

end;

end;

t:=t div n;

write (n,' ', t) ;

end.

t-НОК

n-получившиеся НОД