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
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var n,i,kt,j,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Cac so nguyen to trong khoang tu 2 toi ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
writeln;
writeln('Cac so chinh phuong trong khoang tu 0 toi ',n,' la: ');
for i:=0 to n do
if trunc(sqrt(i))=sqrt(i) then write(i:4);
writeln;
writeln('Cac so hoan hao trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,a[1000],t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cin>>x;
t=0;
for (i=1; i<=n; i++)
if (a[i]!=x)
{
cout<<a[i]<<" ";
t+=a[i];
}
cout<<endl;
cout<<t;
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
freopen("xfibo.inp","r",stdin);
freopen("xfibo.out","w",stdout);
cin>>n;
double c5=sqrt(5);
cout<<fixed<<setprecision(0)<<((1/c5)*(pow((1+c5)/2,n)-pow((1-c5)/2,n)));
return 0;
}
viết công thức pascal nhập số n từ bàn phím . xuất ra màn hình các số chia hết cho 2 và 5 từ 1 đến n
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if (i mod 2=0) and (i mod 5=0) then write(i:4);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Var a:array:[1..1000] of integer;
i,n,max,t,d:integer;
s:longint;
tb:real;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
tb:=s/n;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
writeln('Trung binh cong cua day la ',tb:10:2);
Write('Cac so la boi cua 3 la ');
For i:=1 to n do
if a[i] mod 3 = 0 then write(a[i]:8);
writeln;
write('Cac so le la boi cua 5 la ');
for i:=1 to n do
if (a[i] mod 2 <> 0) and (a[i] mod 5 = 0) then
write(a[i]:8);
Writeln;
max:=a[1];
for i:=1 to n do
if a[i] > max then
begin
max:=a[i];
d:=i;
End;
Writeln('So lon nhat la ',max);
t:=a[1];
a[1]:=max;
a[d]:=t;
Write('Day sau khi dem so lon nhat ra truoc ');
For i:=1 to n do
write(a[i]:8)
writeln;
tb:=(a[8] + a[10])/2);
Write(Trung binh cong cua so thu 8 va thu 10 la ',tb:10:2);
Readln
End.
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.
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.