Функцию в паскале,которая вычисляет наименьшее - вопрос №1877902 от Рано007 30.04.2022 09:00

Question

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

Рано007 · 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.