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
K
Khách
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.
Những câu hỏi liên quan
IS
0
20 tháng 12 2020
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.
14 tháng 4 2022
#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;
}
TH
1
9 tháng 11 2021
#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;
}
TP
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
3
20 tháng 12 2020
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.
21 tháng 3 2021
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.
KV
12 tháng 5 2023
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.