Greedcool
Опубликовано 6 лет назад по предмету Информатика от Greedcool


даны натуральные числа x и y. вычислите их НОК.задача для паскаля!помогите пожалуйста срочно надо

  1. Ответ
    Ответ дан Dgiwaf

    var x,y,nod,nok:longint;

     

    begin

     

    read(x,y);

     

    a:=x; b:=y;

    while (a>0) and (b>0) do

    if a>b then a:=a mod b

    else b:=b mod a;

    nod:=a+b;

    nok:=(x div nod)*y;

     

    write(nok);

     

    end;

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц