Bonjour,
Je ne connais pas trop le langage pascal mais pour résoudre le problème il faut que tu réalises un algo en récursif. Il te faut donc une fonction qui s'appelle elle même, ça doit donner ça :

Var x0, x1 : integer
Begin
Readln( N )
X0 :=0;
X1:=1;
For i:=1 to n-1 do
Begin
F:=X0 +X1;
X0:=X1;
X1:=F;
End;

End ;

voila

Slt svp aidez moi jé un prob
alor
5 personnes se trouvent ds une pièces,l'une entre elle remarque ke leur ages é en progression arithmétique.sahant ke la somme dé carrés de leur ages é égale à l'année ou se passe l'histoire(1980) et ka elles toutes ces personnes totalisent 90ans
kel est l'age de chacune de sé personnes é merciiiiiiiiiiiiiiiiiiii

Salut
je voudrai calculer la valeur u et le rang k du premier terme de la suite de fibonacci depassant une borne entiere positive p donnée en langage c++

#include <stdio.h>

int fibo(n){
if(n==0)
return 1;
if(n==1)
return 0;
return fibo(n-1)+fibo(n-2);
}


int main (){
int n;
scanf("%d",&n);
printf("%d\n",fibo(n));
return 0;
}

Voila juste a modifier quelques vars et le tour est joue.