2006/07 – Fase scolastica – 07

di

Cosa stampa il seguente programma?

Program cosa(Input, Output);

Function mistero(m: Integer; n: Integer): Integer;
Begin
   If(m = 0) Then
      mistero := n
   Else If (n = 0) Then
      mistero:=mistero(m-1, 1)
   Else
      mistero:=mistero(n-1, mistero(m-1, n-1))
End;

Begin
   Writeln(mistero(0, 3), ' ', mistero(1, 3), ' ', mistero(2, 3), ' ', mistero(3, 3));
End.

Risposte:

  1. 3 1 2 0
  2. 3 1 1 0
  3. 3 1 0 1
  4. nessuna delle precedenti.