Домашнее задание по Информатике, помогите пожалуйста. Решить в Паскаль.

Question

Домашнее задание по Информатике, помогите пожалуйста. Решить в Паскаль.

BojErt Ученик (196), закрыт 1 год назад

1.Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(X, Y, Z) = НОД(НОД(X, Y), Z)

2.Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу:D*C = НОД(D, C)*НОК(D, C)

Answer 1

Задача 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.