Khai báo biến mảng F. Tính giá trị của N(N<=100) số của biến mảng F. ( Biết F[0]=0, F[1]=1, F[N]=F[N-1]+ F[N-2])
2 câu trả lời
uses crt;
var n,i:byte; f:array[0..100]of QWord;
begin
write('N= (n<=100) ');readln(n);
f[0]:=0;
f[1]:=1;
for i:=2 to n do
f[i]:=f[i-1]+f[i-2];
writeln(f[n]);
readln
end.
program csc; uses crt; var a:array[1..100] of integer; i,n,d:integer; t:boolean; begin clrscr; write('nhap so phan tu cua day '); readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; if n<=2 then write('la cap so cong ') else begin d:=a[2]-a[1]; t:=true; for i:=3 to n do if a[i]<>a[i-1]+d then begin t:=false; break; end; if t then write('la cap so cong') else write('khong phai cap so cong '); end; readkey; end.
