Отыскать величайший общий делитель чисел A, B, C,создав функцию для нахождения

Найти величайший общий делитель чисел A, B, C,
создав функцию для нахождения НОД 2-ух естественных чисел.

Задать свой вопрос
2 ответа
Var a,b,c,d :integer;

function NOD(a,b:integer):integer;
begin
while alt;gt;b do
  if agt;b then
  a:=a-b
  else b:=b-a;
result:=a;
end;

begin
writeln('Введите а, b, c');
readln(a,b,c);
d:=NOD(a,b);
d:=NOD(d,c);
writeln('НОД = ',d);
end.
Program NOD(output);
function nod (a1, a2: integer): integer;
begin
nod:=abs (a1 mod a2);
writeln(7);
nod (a1, a2);
end;
var a, b, c, d: integer;
begin
readln (a, b, c);
d:=nod(nod(a, b), c);
writeln(d);
readln;
end.



, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт