Функцию в паскале,которая вычисляет наименьшее общее - вопрос №1877225 от Умницв 03.01.2022 04:37

Question

Информатика: Функцию в паскале,которая вычисляет наименьшее общее кратное двух чисел

Умницв · Answer

Напишу лучше полностью, а то есть уникумы, которые любят отмечать "неполное решение".
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.