напишите программу вычисления наименьшего общего кратного следующих четырех чисел: 36 54 18 и 15. Используйте процедуру вычисления общего делителя двух чисел
Ответы
Ответ дал:
0
var
A:array[1..4] of integer;
i,j,R,P:integer;
function HOD(c,b:integer):integer;
begin
while c<>b do
if c>b
then
c:=c-b
else
b:=b-c;
HOD:=c;
end;
function HOK(c,b, RR:integer):integer;
begin
if ((c mod b=0) or (b mod c=0)) and ((c div b > 1) or (b div c > 1))
then
begin
if c>b
then
HoK:=c
else
HOK:=b;
end
else
HOK:=(c*b) div RR;
end;
begin
A[1]:=36;
A[2]:=54;
A[3]:=18;
A[4]:=15;
P:=1;
R:=HOD(A[1],A[2]);
P:=HOK(A[1], A[2], R);
for i:=3 to 4 do
begin
R:=HOD(R, A[i]);
P:=HOK(P, A[i],R);
end; writeln('HOK = ',P);
end.
A:array[1..4] of integer;
i,j,R,P:integer;
function HOD(c,b:integer):integer;
begin
while c<>b do
if c>b
then
c:=c-b
else
b:=b-c;
HOD:=c;
end;
function HOK(c,b, RR:integer):integer;
begin
if ((c mod b=0) or (b mod c=0)) and ((c div b > 1) or (b div c > 1))
then
begin
if c>b
then
HoK:=c
else
HOK:=b;
end
else
HOK:=(c*b) div RR;
end;
begin
A[1]:=36;
A[2]:=54;
A[3]:=18;
A[4]:=15;
P:=1;
R:=HOD(A[1],A[2]);
P:=HOK(A[1], A[2], R);
for i:=3 to 4 do
begin
R:=HOD(R, A[i]);
P:=HOK(P, A[i],R);
end; writeln('HOK = ',P);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад