Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
x-div-2-x-3+1
{ На вход подаётся целое число x. Далее: если x чётное, то делим его на 2; иначе x = 3 * x + 1. Делаем это в цикле, пока x > 1. Программу можно обобщить на произвольные параметры: делить не на 2 а на любое чётное число (не чётное сводит x к нулю) изменять не умножая на 3 и прибавляя 1, на любые коэффициенты. Например, при делении на 2 и умножении не на 3 а на 7 задача не сходится к 1. Программа подсчитывает количество циклов до сведения x к единице. Программа выводит график колебаний числа x как функции от номера цикла. } var x, y, k, i, j, q : int64; begin k := 0; readln ( x ); y := x; j := 0; q := 1; while y <> 0 do begin y := y div 10; j := j + 1; end; for i := 1 to j do q := q * 10; while x > 1 do begin if x mod 2 = 0 then x := x div 2 else x := 3 * x + 1; for i := 1 to x div q do write ( '*' ); writeln; k := k + 1; end; writeln ( k ); end.
run
|
edit
|
history
|
help
0
Deskripsi
1046
Луноход-4
Martix
nested for loop a(ii)
TID_Calculator
codigo
6
nomer3
test27