Информатика (Pascal). Составить программу нахождения наименьшего общего кратного (НОК) двух чисел m и n, используя формулу nm=НОД (n, m) НОК (n, m).

Question

Информатика

Нелли

19 декабря, 04:54

Информатика (Pascal). Составить программу нахождения наименьшего общего кратного (НОК) двух чисел m и n, используя формулу nm=НОД (n, m) НОК (n, m).

+5

Ответы (1)

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

Колюня · Answer 1

Uses crt;

var n, m, p : real;

nod, nok : real;

begin

clrscr;

write ('n=') ; readln (a) ;

write ('j=') ; readln (b) ;

p:=n*m;

while nm do

if n>m then n:=n-m

else m:=m-a;

nod:=n;

nok:=p/nod;

writeln ('НОД:', n) ;

write ('НОК:', nok) ;

readln;

end.

Информатика (Pascal). Составить программу нахождения наименьшего общего кратного (НОК) двух чисел m и n, используя формулу n*m=НОД (n, m) * НОК (n, m).

Информатика (Pascal). Составить программу нахождения наименьшего общего кратного (НОК) двух чисел m и n, используя формулу nm=НОД (n, m) НОК (n, m).