Предмет: Информатика,
автор: katenokk13
составьте пожалуйста программу определения наименьшего общего делителя двух натуральных чисел
Ответы
Автор ответа:
0
program a1;
var m,n,p:longint;
begin
readln(m,n);
p:= m*n;
while m <> n do
begin
if m>n then begin
m:=m-n
end
else
begin
n:=n-m;
end
end;
writeln(p div m);
end.
var m,n,p:longint;
begin
readln(m,n);
p:= m*n;
while m <> n do
begin
if m>n then begin
m:=m-n
end
else
begin
n:=n-m;
end
end;
writeln(p div m);
end.
Автор ответа:
0
спасибо)
Похожие вопросы
Предмет: Математика,
автор: daanaismailova4
Предмет: Другие предметы,
автор: Аноним
Предмет: Физика,
автор: andrye951
Предмет: Математика,
автор: nasty200209