Question

Помогите пожалуйста составить программу на ПАСКАЛЕ Надо набрать и отладить программу нахождения наибольшего общего делителя и протестировать ее на следующих исходных данных:а) а=40 б=64 б) а=32 б=16 в) а=12 б=20 г) а=5 б=12

Answer 1

Вот решение твоей задачки^^

Answer 2

Конечно, я могу помочь! Вот программа на Паскале для нахождения наибольшего общего делителя:

cssCopy code
program gcd;

var
  a, b, result: integer;

function gcd(a, b: integer): integer;
begin
  if b = 0 then
    result := a
  else
    result := gcd(b, a mod b);
end;

begin
  // тестовые данные
  a := 40;
  b := 64;
  
  // вычисляем наибольший общий делитель
  result := gcd(a, b);
  
  // выводим результат
  writeln('Наибольший общий делитель(', a, ', ', b, ') = ', result);
  
  // тестовые данные
  a := 32;
  b := 16;
  
  // вычисляем наибольший общий делитель
  result := gcd(a, b);
  
  // выводим результат
  writeln('Наибольший общий делитель(', a, ', ', b, ') = ', result);
  
  // тестовые данные
  a := 12;
  b := 20;
  
  // вычисляем наибольший общий делитель
  result := gcd(a, b);
  
  // выводим результат
  writeln('Наибольший общий делитель(', a, ', ', b, ') = ', result);
  
  // тестовые данные
  a := 5;
  b := 12;
  
  // вычисляем наибольший общий делитель
  result := gcd(a, b);
  
  // выводим результат
  writeln('Наибольший общий делитель(', a, ', ', b, ') = ', result);
end.

Когда вы запустите эту программу, она должна вывести следующие результаты:

scssCopy code
Наибольший общий делитель(40, 64) = 8
Наибольший общий делитель(32, 16) = 16
Наибольший общий делитель(12, 20) = 4
Наибольший общий делитель(5, 12) = 1

Надеюсь, это помогло! Если у вас есть какие-либо вопросы, пожалуйста, не стесняйтесь спрашивать.