С клавиатуры вводятся два целых положительных числа. Найти их наибольший общий делитель.

Pascal ABC

функцией

Question

Информатика

Евсей

19 февраля, 10:54

С клавиатуры вводятся два целых положительных числа. Найти их наибольший общий делитель.

Pascal ABC

функцией

+5

Ответы (1)

Знаете ответ на вопрос?

Павла · Answer 1

Function NOD (A, B:integer) : integer;

Begin

if A>B then result:=B

else result:=A;

result:=result+1;

Repeat

result:=result-1

Until (A mod result = 0) and (B mod result = 0)

End;

Var

A, B:integer;

Begin

Write ('A = ') ; ReadLn (A) ;

Write ('B = ') ; ReadLn (B) ;

Write (NOD (A, B))

End.

С клавиатуры вводятся два целых положительных числа. Найти их наибольший общий делитель.Pascal ABCфункцией

С клавиатуры вводятся два целых положительных числа. Найти их наибольший общий делитель.

Pascal ABC

функцией