Яновский
5 год назад
Pascal. Вводится 2 натуральных числа. Вывести их НОК.Пожалуйста посчитайте пожалуйста!
ОТВЕТЫ
David
Oct 24, 2020
var
a, b, nok: integer;
begin
readln (a, b);
nok:=(a*b);
while a<>b do
begin
if a>b then a:=a-b else b:=b-a;
end;
nok:=nok div a;
write (nok);
end.
a, b, nok: integer;
begin
readln (a, b);
nok:=(a*b);
while a<>b do
begin
if a>b then a:=a-b else b:=b-a;
end;
nok:=nok div a;
write (nok);
end.
140
