Salve,

devo fare un programmino, ma non so come realizzarlo... Chi puo' darmi una mano?

In pratica io gli devo dire un numero:

se il numero è pari, lo divide per 2, fino ad arrivare ad 1, (scrivendo tutti i vari passaggi!)

se il numero è dispari, deve essere moltiplicato per 3, ed aggiunto 1. E via dicendo, se il numero ottenuto è pari lo si divide per 2 fino ad arrivare ad 1, altrimenti lo si rimoltiplica per 3 aggiungendo 1...


Potete aiutarmi? Vi scrivo come avevo impostato il programma, così potete scrivermi le procedure senza scrivere tutto il programma!

codice:
program KILIN_RULEZ;


uses
  crt;                             
var
  NUMERO, R :integer;
  procedure procedura_pari;
  begin
     end;

procedure procedura_dispari;
  begin

  end;


begin
    clrscr;
    writeln('Introduci il numero:');
    readln(NUMERO);
    R:= NUMERO mod 2;               
    
    if(R=0) then                 
      procedura_pari;
    else 
      procedura_dispari;

end.
Grazie!

ciao ciao