Чтобы найти наибольший общий делитель постройте программу используя эту формулу: нод (А, B, C) = нод (нод (А, B,), C). (через программу паскаль) program=Evklid

Question

Информатика

Ираидка

22 февраля, 16:31

Чтобы найти наибольший общий делитель постройте программу используя эту формулу: нод (А, B, C) = нод (нод (А, B,), C). (через программу паскаль) program=Evklid

+1

Ответы (1)

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

Павля · Answer 1

Var a, b, c, x : integer;

function NOD (a, b:integer) : integer;

begin

while ab do

if a>b then

a:=a-b

else b:=b-a;

Result:=a;

end;

begin

write ('Введите a, b, c: ') ;

readln (a, b, c) ;

x:=NOD (NOD (a, b), c) ;

writeln ('НОД=', x)

end.