Program example; var x,y:integer;
begin
writeln ('Введите число');
readln(x);
while x<>1 do
if x mod 2=1 then begin x:=x*3+1;
end
else begin x:=x div 2;
end;
y:=x;
readln(y);
writeln (1);
end.
Проблема в том, что раскаль выводит изначальный результат х, а нужно, чтобы был х спустя несколько операций. В чём я ошибся?

гость162    3   03.06.2021 21:50    2