Question

Помогите пожалуйста program Evklid; var a,b: integer; begin while (a<>0) and (b<>0)do if a>b then a:=a mod b else b:= b mod a; end. 1Дополните программу оператором вывода результата. 2Запишите условный оператор, который выводит результат, проверяя одну из переменных на равенство нулю. 3ДОПОЛНИТЕ программу так, чтобы она считала ещё и количество сделанных шагов цикла. ( Введите переменную-счётчик целого типа).

Answer 1

Ответ:

program Evklid;

var a, b, s: integer;

begin

//Добавлен оператор ввода чисел

 readln (a, b);

// Добавлен условный оператор из пункта 2

 if not ((a=0) or (b=0)) then

 begin

  // Добавлен счетчик шагов s из пункта 3

   s:=0;

   while (a<>0) and (b<>0)do

   begin

     if a>b then

       a:=a mod b

   else

       b:= b mod a;

   s:=s+1;

 end;

 end;

// Добавлен оператор вывода из пункта 1

 writeln('Nod = ',a+b, ',  S = ',s);

end.

Результат выполнения программы:

Answer 2

Давайте внесем необходимые изменения в программу и добавим оператор вывода результата и счетчик шагов:

pascalCopy code
program Evklid;
var
  a, b, steps: integer;

begin
  steps := 0; // Инициализируем счетчик шагов
  write('Введите первое число (a): ');
  readln(a);
  write('Введите второе число (b): ');
  readln(b);

  while (a <> 0) and (b <> 0) do
  begin
    steps := steps + 1; // Увеличиваем счетчик шагов на 1
    if a > b then
      a := a mod b
    else
      b := b mod a;
  end;

  // Выводим результат
  writeln('НОД = ', a + b);
  writeln('Количество шагов: ', steps);
end.

Теперь программа будет запрашивать у пользователя два числа (a и b), вычислять и выводить их наибольший общий делитель (НОД), а также количество шагов, необходимых для вычисления НОД.