Напишите программу для нахождения НОК для n чисел (Pascal). Created by ThePaper. informatika-ru

Напишите программу для нахождения НОК для n чисел (Pascal)...

July 2022 1 13 Report

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

Answers & Comments

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

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.

4 votes Thanks 1

Answers & Comments

2; при n>=2...

Решите 3 задание,пожалуйста...

Решите, пожалуйста, 4,5,6...

Помогите, пожалуйста, доказать признак подобия прямоугольных треугольников. Есл...

Решите пожалуйста задания за 15б...

Геометрия(чертёж, решение), пожалуйста...

Сделайте 6 и 7, больше ничего не нужно...

Напишите программу для нахождения НОК для n чисел (Pascal)...

Сделайте 1 и 5, и больше ничего...

Ребро правильного тетраэдра mabc равно 18. Точки P и K являются соответственно с...

рекомендуемые вопросы

Helpful Links

Helpful Social