найти наименьшее общее кратное трех чисел (Pascal)

[spone379]

Помогите пожалуйста написать программу в Паскале с функцией...найти "наименьшее общее кратное трех чисел"...нужен код программы.

[Abstraction]

Алгоритм нахождения НОК(a,b):
a*b/НОД(a,b)
Алгоритм нахождения НОД(a,b):
НОД(a,0)=a;
НОД(a,b)=НОД(max(a-b,b), min(a-b,b)).

Алгоритм нахождения НОК(a,b,c):
НОК(a,НОК(b,c)).

[Serge_Bliznykov]

посмотрите внизу страницы "Похожие темы"
после того, как я переимновал вашу тему, там стали вполне адекватные подсказки, сходите по ссылкам...

[spone379]

а можно полностью с программой?

[s4egol]

(1) 31.10.2012 18:23 от s4egol

НОК и даже НОД

var a,b: longint;
function Nod(a,b:integer):integer;
begin
  while(a<>0) and (b<>0) do
  if a>=b then a:= a mod b
  else b:= b mod a;
  NOD:=a+b;
  end;
function NOK(a,b:integer):integer;
begin
  NOk:=a*b div NOd(a,b)
  end;
begin
  write('введите a:');
  readln(a);
  write('введите b:');
  readln(b);
  writeln('НОК',' ',a,' ','и',' ',b,' ','=',' ',nok(a,b));
  end.

(2) 31.10.2012 18:25 от s4egol

правда это двух чисел но это легко впринципе подкаректировать


___________
1. Не используйте форум как чат - не пишите несколько коротких сообщений подряд!
Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении
и изменяйте, добавляйте....

2. Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.