Вычисление произведения наибольших общих делителей пар чисел

@ника1 · Регистрация: 07.11.2012

Author24 — интернет-сервис помощи студентам

Составьте программу вычисления произведения наибольших общих делителей пар чисел A,B и C,D

@CodeR · 13.12.2012, 14:56

Pascal

Function Nod(N,M:integer):integer;
Begin
    While n<>m do
     if n>m then n:=n-m
      else m:=m-n;
    Nod:=n;
End;
Var a,b,c,d:integer;
Begin
    write('Введите a,b: ');readln(a,b);
    write('Введите c,d: ');readln(c,d);
    writeln('Произведение = ',Nod(a,b)*Nod(c,d));
    readln;
End.

@ника1 · 14.12.2012, 19:05 **[ТС]**

Не могли бы вы объяснить мне по строчке, что происходит?

@ника1 0 / 0 / 0 Регистрация: 07.11.2012 Сообщений: 58
		1
	Вычисление произведения наибольших общих делителей пар чисел 13.12.2012, 13:05. Показов 1639. Ответов 2 Метки нет (Все метки) Составьте программу вычисления произведения наибольших общих делителей пар чисел A,B и C,D 0

@ника1 0 / 0 / 0 Регистрация: 07.11.2012 Сообщений: 58
	14.12.2012, 19:05 [ТС]	3
	Не могли бы вы объяснить мне по строчке, что происходит? 0

Опции темы

Вычисление произведения наибольших общих делителей пар чисел

Решение