34

Даны натуральные числа x и y. Вычислите их НОК. Задача для паскаля! Помогите…

05 марта 2023

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

категория: информатика



52

var x,y,nod,nok: longint; begin read (x,y); a: =x; b: =y; while (a>0) and (b>0) doif a>b then a: =a mod belse b: =b mod a; nod: =a+b; nok: =(x div nod)*y; write (nok); end;

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...