Предмет: Информатика,
автор: bossmakswell
Напишите программу вычисления наименьшего общего кратного следующих четырёх чисел: 36 54 18 и 15. Используйте процедуру вычисления наибольшего общего делителя двух чисел.
Информатика 9 класс
Ответы
Автор ответа:
0
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!
procedure nod ( a,b: integer; var h: integer);
var c: integer;
begin
repeat
if a > b then
a := a mod b
else
b := b mod a;
until (a = 0) or (b = 0); h := a + b;
end;begin
var (a,b):=readinteger2('a,b->'); var h:integer;
nod(a,b,h);
Writeln('НОК',a*b/h);
end.
procedure nod ( a,b: integer; var h: integer);
var c: integer;
begin
repeat
if a > b then
a := a mod b
else
b := b mod a;
until (a = 0) or (b = 0); h := a + b;
end;begin
var (a,b):=readinteger2('a,b->'); var h:integer;
nod(a,b,h);
Writeln('НОК',a*b/h);
end.
Приложения:
Похожие вопросы