giúp em bt pascal !

[anglejacky]

2. Dãy F là dãy Phi-bô-na-xi nếu:
F0=0; F1=1; FN=F(N-1)+F(N-2) với N >= 2
Viết chương trình nhập từ bàn phím số nguyên dương N và đưa ra màn hình số hạng thứ N của dãy. chương trình của bạn thực hiện được với giá trị lớn nhất của N là bao nhiêu?

theo cách của mình thì đơn giản hơn nè,sát với bài học lại mau tiếp thu hơn
...
F[1]:=1;
F[2]:=1;
for i :=1 to N do F[i]:=F[i-1]-F[i-2];
...
phần còn lại thì bạn tự thêm vào

[anglejacky]

3.Viết ct nhập từ bàn phím xâu kí tự S có đọ dài không quá 100. Hãy cho biết có bao nhiêu chữ số xuất hiện trong xâu S. Thông báo kết quả ra màn hình.

...
s2:='';
if ('0'<=s1[i]) and ('9'<=s1[i]) then s2:=s2+s1[i];
write('ket qua:',length(s2));
...

còn lại bạn tự thêm nha

[saobangkhoc_TL911]

theo cách của mình thì đơn giản hơn nè,sát với bài học lại mau tiếp thu hơn
...
F[1]:=1;
F[2]:=1;
for i :=1 to N do F[i]:=F[i-1]-F[i-2];
...
phần còn lại thì bạn tự thêm vào

Cách này đúng là dễ hiểu hơn thiệt, hôm nay cô mình cũng đã hướng dẫn cách này rồi