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

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

July 2022 1 4 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 pri ngt2

reshite 3 zadaniepozhalujsta4f1639192d39587ad98fa73668a44603 99731

reshite pozhalujsta 4563c6c78b1214a4e10b98b9375f605883b 46960

pomogite pozhalujsta dokazat priznak podobiya pryamougolnyh treugolnikov esl

reshite pozhalujsta zadaniya za 15b

geometriyachertyozh reshenie pozhalujsta

sdelajte 6 i 7 bolshe nichego ne nuzhno

napishite programmu dlya nahozhdeniya nok dlya n chisel pascal

sdelajte 1 i 5 i bolshe nichego

rebro pravilnogo tetraedra mabc ravno 18 tochki p i k yavlyayutsya sootvetstvenno s

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

Helpful Links

Helpful Social