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.