Домашнее задание по Информатике, помогите пожалуйста. Решить в Паскаль.
1.Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(X, Y, Z) = НОД(НОД(X, Y), Z)
2.Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу:D*C = НОД(D, C)*НОК(D, C)
Задача 1
Используем вспомогательную функцию NOD (x, y) [PascaloABC]:
var X, Y, Z : longint;
function NOD ( x, y : longint): longint;
begin
if x <> 0 then NOD := NOD (y mod x, x) else NOD := y;
end;
begin
Write ( ' X = '); ReadLn (X);
Write ( ' Y = '); ReadLn (Y);
Write ( ' Z = '); ReadLn (Z);
Writeln ( ' НОД этих трех чисел = ', NOD (NOD (X, Y), Z ));
end.
Задача 2
var X, Y : longint;
function NOD ( x, y : longint): longint;
begin
if x <> 0 then NOD := NOD (y mod x, x) else NOD := y;
end;
begin
Write ( ' X = '); ReadLn (X);
Write ( ' Y = '); ReadLn (Y);
Writeln ( ' НОК = ', ( (X*Y) div NOD (X, Y )));
end.
