BAI TAP PASCAL HAY

Bài 7; Uses crt; Var x:integer; kq:longint; Function F(n:integer):Longint; begin if n<=2 then F:=1 Else F:=F(n-2)+F(n-1); end; Begin Clrscr; Write(#7,`Nhap so n= `);Readln(x); Write(`So Fibonaxi thu `,x,` la `,F(x)); readln; End. Bài 10; For i:=1 to length(s) do Case a[i] of ‘0’..’9’: d:=d+1; Writeln(‘Có ’,d,’ chữ số trong xâu vừa nhập’); Bài 4 sách giáo khoa trang 117; Chương trình tìm BCNN tương đương với tìm ƯCLN; Tìm BCNN sẽ là lấy tích 2 số chia cho ƯCLN của 2 số! Đến đây coi như các bài tập đã giải xong! Chúc các bạn thành công nếu “KHÔNG MAY” bị gọi lên bảng những bài này