Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию.

Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.

Question

Информатика

Генюля

16 марта, 21:38

Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию.

Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.

+3

Ответы (1)

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

Марк · Answer 1

Программа с НОД

var t, t1, x, y, z:integer;

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

Begin If a=b then NOD:=a

else if a>b then NOD:=NOD (a-b, b)

Else NOD:=NOD (a, b-a) ;

End;

begin

writeln ('Введите 2 числа') ;

readln (x, y) ;

t:=NOD (X, Y) ;

writeln (t) ;

end.

Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию.Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.

Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию.

Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.