Решите все сделайте на заранее !

Question

Информатика: Решите все сделайте на заранее !

vlasenkoa16311 · Accepted Answer

// Программа и скриншот результата ее работы - в приложениях

var m,n:integer;

// Наибольший общий делитель
function GCD(a,b:integer):integer;
var   x,y:integer;
begin
x:=a;
y:=b;
while x<>y do
    if x>y
    then x:=x-y
    else y:=y-x;

GCD:=x;
end;

// Наименьшее общее кратное
function SCM(a,b:integer):integer;
begin
SCM := a*b div GCD(a,b);
end;

begin
writeln('Введите два целых числа m, n: ');
readln(m, n);

writeln('Наименьшее общее кратное ',
          m,' и ', n, ' = ', SCM(m,n) );
end.

Напишите программу для нахождения нок для n чисел (pascal)

Напишите программу для нахождения нок для n чисел (pascal)

MOGZ ответил

Решите все

сделайте на заранее !