Pascal. Вводится 2 натуральных числа. Вывести их НОК.
Помогите пожалуйста!
Ответы на вопрос
Ответил Mаniya
0
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.
Новые вопросы