Функцию в паскале,которая вычисляет наименьшее - вопрос №1877400 от регинамаг 31.01.2022 10:26

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.