Question

1 VTC pascal nhập số nguyên n. Tính các số Fibonacci theo công thức: F1 = F2 = 1; Fn = F1 - 1 + F2 + 2 + Xuất dãy số Fibbonacci ra màn hình +Tính tống dãy số Fibonacci và xét tổng đó có phải là số nguyên tố k Bài 2 VCt pascal nhập dãy số n(n từ bàn phím + Xuất ra màn hình số nhỏ nhất và số lớn nhất và tb cộng của dãy số + Kiểm tra giá trị tb đó có phải là số hoàn hảo không

Answer 1

Bài 1: 

uses crt;

var f:array[1..255]of integer;

i,n,t,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

i:=2;

f[1]:=1;

f[2]:=1;

repeat

  i:=i+1;

f[i]:=f[i-1]+f[i-2];

until i=n;

writeln('Day so fibonaci la: ');

for i:=1 to n do

write(f[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  t:=t+f[i];

writeln('Tong cua day la: ',t);

kt:=0;

for i:=2 to trunc(sqrt(t)) do 

  if t mod i=0 then kt:=1;

if (kt=0) and (t>1) then writeln(t,' la so nguyen to')

else writeln(t,' khong la so nguyen to');

readln;

end.

Answer 2

Bài 2: 

uses crt;

var a:array[1..100]of integer;

i,n,max,min,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('So nho nhat la: ',min);

writeln('So lon nhat la: ',max);

writeln('Trung binh cong cua day so la: ',t/n:4:2);

readln;

end.