Ответы
Ответ дал:
0
Напишу лучше полностью, а то есть уникумы, которые любят отмечать "неполное решение".
var m,n,a,b:integer; nok:real;
begin
readln(m,n);
a:=m;
b:=n;
while m<>n do
if m>n then m:=m-n
else n:=n-m;
nok:=a*b/m;
writeln(nok);
end.
var m,n,a,b:integer; nok:real;
begin
readln(m,n);
a:=m;
b:=n;
while m<>n do
if m>n then m:=m-n
else n:=n-m;
nok:=a*b/m;
writeln(nok);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад