Помогите,пожалуйста, составить программу на языке Паскаль,задача на фото.
Answers & Comments
Twyla27
Var x, y, a, nod:integer; nok:real; begin readln(x,y); a:=x*y; repeat if x > y then x:=x mod y else y:=y mod x until x*y=0; nod:=x+y; writeln(nod); nok:=a/nod; writeln(nok); end.
Answers & Comments
nok:real;
begin
readln(x,y);
a:=x*y;
repeat if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln(nod);
nok:=a/nod;
writeln(nok);
end.