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

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

Question

Информатика

Тарасыч

7 октября, 19:07

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

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

+4

Ответы (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.

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

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

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