Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Question!


Name: rgrg
Title:
  grrere
Question:
Program funzricors;
var i,a,c:integer;
function seq(m:integer):integer;
begin
if(m=0) then
seq:=1                        // passo di base (l'1 non ha precedenti)
else
seq:=seq(m-1) 6;             //ogni numero è uguale al precedente aumentato di 6
end;
begin
writeln('inserisci un numero');
readln(a);                  // indica la posizione del numero della sequenza(n)
writeln('il termine',a,'della successione vale:');
writeln(seq(a));              // data la posizione(a), ti dice che numero c'è in quella posizione
writeln('inserisci un numero');
readln(c);                  // indica la lunghezza della sequenza da visualizzare
writeln('i primi',c,'termini della successione sono:');
for i:=1 to c do
writeln (seq(i));             // visualizza la sequenza 
readln();
end.
Answers: