помогите исправить ошибку в коде (Ошибка компиляции: "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.
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.
Answers & Comments
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.