Задание 1. Даны два числа a и b, не равные нулю одновременно. Найти

НОК(a,b) – наименьшее общее кратное.

Amy1503 Amy1503    2   04.05.2020 16:48    0

Ответы
PoliLan PoliLan  14.10.2020 06:55

Объяснение:

Var a,b,nod:integer;

Begin

write('введите a,b: ');readln(a,b);

While a<>b do

if a>b then a:=a-b

else b:=b-a;

Nod:=a;

writeln('HOK = ',(a*b) div nod);

readln

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика