Question

Что тут не так? ПОМОГИТЕ СРОЧНО!!!! program Nod; var a,b:integer; begin Write ('введите два натуральных числа'); Readln(4,2); While 4<>2 do If 4>2 then a:=4-2 else b:=2-4 Writeln('НОД=',4); Readln end.

Answer 1

Объяснение:

Если нужно найти наибольший общий делитель, то так:

program Nod;

var a,b:integer;

begin

Write ('введите два натуральных числа');

Readln(a,b);

While a<>b do

begin

If a>b then a:=a-b;

else b:=b-a;

end;

Writeln('НОД=',a);

end.

Answer 2

Ваш код содержит несколько ошибок и не соответствует структуре языка Pascal. Вот исправленный вариант:

pascalCopy code
program Nod;
var
  a, b, result: integer;
begin
  Write('Введите два натуральных числа: ');
  Readln(a, b);

  while a <> b do
  begin
    if a > b then
      a := a - b
    else
      b := b - a;
  end;

  result := a;
  Writeln('НОД = ', result);

  Readln;
end.

Исправления и изменения:

1. Заменено Readln(4, 2); на Readln(a, b);, чтобы считать введенные значения пользователем.

2. Заменено While 4 <> 2 do на while a <> b do, чтобы выполнять цикл, пока a и b не станут равными.

3. Использован алгоритм нахождения НОД (наибольшего общего делителя) с помощью вычитания.

4. Результат вычисления НОД сохраняется в переменной result и выводится на экран.