Предмет: Информатика,
автор: Дмитрий97455
Написать программу приведения дробей к наименьшему общему знаменателю. Пользователь вводит две дроби. Программа приводит дроби к наименьшему общему знаменателю. СРОЧНО
Ответы
Автор ответа:
0
Нахождение НОК двух чисел, оформите под вашу задачу
var
x, y: integer;
function NOD(x, y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x, x)
else NOD:=y;
end;
function NOK(x, y: integer): integer;
begin
NOK:=(x div NOD(x,y))*y;
end;
begin
read(x, y);
write(NOK(x, y));
end.
var
x, y: integer;
function NOD(x, y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x, x)
else NOD:=y;
end;
function NOK(x, y: integer): integer;
begin
NOK:=(x div NOD(x,y))*y;
end;
begin
read(x, y);
write(NOK(x, y));
end.
Интересные вопросы
Предмет: История,
автор: Аноним
Предмет: Геометрия,
автор: vanyaalekseev14
Предмет: Литература,
автор: molokoru935
Предмет: Литература,
автор: MYSARR
Предмет: Литература,
автор: Gomer33