Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Hailstone number
//fpc 3.0.0 program Hailstone_number; var i,n,x:integer; begin i:=0; write('Input a number?'); readln(n); writeln('Initial value is ',n); while n<>1 do begin x:= (n mod 2); if x=0 then n:= n div 2 else n:= 3*n+1; writeln('Next value is ',n); i:=i+1; end; writeln; writeln('Final value is 1'); writeln('Number of steps is ',i); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
practica 5 ejercicio 8
For10
Letícia
Бассейн-5
Урок 2 задача не из учебника1
Сумма квадратов чисел = n
practica 9 ejercicio 3
Урок 3, задача 8 (1481). Покупка
sum_example1
Complemento da VS ICC II - 1º Semestre 2017
Please log in to post a comment.