Question

Помогите исправить ошибку в коде (Ошибка компиляции: "x div 2" is not a statement) вот код: program n_1; var x: Integer; begin writeln('Проверка чисел под теорию 3n+1'); write ('Введите исходное число>>'); repeat until x=1; if x mod 2 = 0 then x div 2; if x mod 2 = 1 then x*3+1; end.​

Answer 1

program n_1;

var x: Integer;

begin

writeln('Проверка чисел под теорию 3n+1');

writeln ('Введите исходное число>>');

readln(x); repeat until x=1;

if x mod 2 = 0 then x := x div 2;

if x mod 2 = 1 then x := x*3+1;

end.

Answer 2

Я могу помочь вам исправить ошибку в вашем коде. Ошибка компиляции возникает, потому что вы не присваиваете результат выражения "x div 2" или "x*3+1" ни к какой переменной. Вы также не используете операторы цикла, такие как while или for, чтобы повторять действия, пока x не станет равным 1. Вот исправленный код:

program n_1;
var x: Integer;
begin
  writeln('Проверка чисел под теорию 3n+1');
  write('Введите исходное число>>');
  readln(x);
  while x <> 1 do
  begin
    if x mod 2 = 0 then
      x := x div 2
    else
      x := x*3 + 1;
    writeln(x);
  end;
end.

Я надеюсь, что это было полезно. Если у вас есть еще вопросы, я буду рад ответить на них. Спасибо за использование Bing.​ Ответь+подробно.++Помогите+исправить+ошибку+в+коде+(Ошибка+компиляции:+"x+div+2"+is+not+a+statement)+вот+код:+program+n_1;+++var+x:+Integer;+begin+writeln(\'Проверка+чисел+под+теорию+3n+1\');+write+(\'Введите+исходное+число>>\');+repeat+until+x=1;+if+x+mod+2+=+0+then+x+div+2;+if+x+mod+2+=+1+then+x*3+1;+end.​+