Задать вопрос
22 августа, 13:39

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

+2
Ответы (1)
  1. 22 августа, 16:49
    0
    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) * ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы