Question

Напишите программу (на паскале) для нахождения наибольшего общего делителя для чисел 12, 24, 30, 48 и 51 с использованием процедуры​

Answer 1

Ответ:

var a,b: integer;

function NOD(x,y: integer): integer;

begin;

  if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;

end;

begin;

  readln(a,b);

  writeln( 'НОД= ', NOD(a,b) );

end.

Объяснение:

begin(в переводе с английского начало)

if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y(пишем этот код)

end(в переводе с английского конец)

Дальше пишем как я написал

Answer 2

Конечно, вот пример программы на языке Pascal для нахождения наибольшего общего делителя (НОД) для чисел 12, 24, 30, 48 и 51 с использованием процедуры:

pascalCopy code
program FindGCD;

var
  a, b, result: integer;

// Процедура для нахождения НОД двух чисел
procedure FindGCDOfTwoNumbers(x, y: integer; var gcd: integer);
var
  temp: integer;
begin
  while y <> 0 do
  begin
    temp := y;
    y := x mod y;
    x := temp;
  end;
  gcd := x;
end;

begin
  // Исходные числа
  a := 12;
  b := 24;

  // Находим НОД первых двух чисел и сохраняем его в переменной result
  FindGCDOfTwoNumbers(a, b, result);

  // Последовательно находим НОД остальных чисел, используя результат предыдущего шага
  a := result;
  b := 30;
  FindGCDOfTwoNumbers(a, b, result);

  a := result;
  b := 48;
  FindGCDOfTwoNumbers(a, b, result);

  a := result;
  b := 51;
  FindGCDOfTwoNumbers(a, b, result);

  // Результат будет содержаться в переменной result
  writeln('Наибольший общий делитель (НОД) чисел 12, 24, 30, 48 и 51: ', result);

  readln;
end.

Эта программа сначала находит НОД первых двух чисел (12 и 24), затем использует результат для нахождения НОД следующих чисел (30, 48 и 51). Результат НОД будет сохранен в переменной result, и он будет выводиться на экран.