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.

Bạn ơi, đề bài yêu cầu gì vậy?

P/s: Bạn có thể ghi yêu cầu đề bài dưới phần bình luận được không?

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.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100];

cin>>n;

for (int i=1; i<=n; i++)

cin>>A[i];

for (int i=1; i<=n; i++)

cout<<A[i]<<" ";

return 0;

}

24 tháng 12 2022

Cau 1:

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

24 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long n,x;

int main()

{

cin>>n;

x=sqrt(n);

if (x*x==n) cout<<n<<" la so chinh phuong";

else cout<<n<<" khong la so chinh phuong";

return 0;

}

12 tháng 11 2021

?

12 tháng 11 2021

? CÁI GÌ

25 tháng 4 2021

Làm giúp bài này nhé

 

25 tháng 4 2021

21 tháng 3 2023

n = int(input("Nhập vào một số nguyên dương: "))

if n < 0:

     print(n, "là số âm")

elif n > 0:

     print(n, "là số dương")

else:

     print(n, "là số 0")

9 tháng 3 2023

Var i,n,s:integer;

Begin

While n<=0 do

Write('N = ');readln(n);

For i:=1 to n do

If n mod i = 0 then s:=s+i;

Write('Tong cac uoc cua ',n,' la ',s);

Readln;

End.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,t=0;

cin>>n;

for (int i=1; i<=n; i++)

if (n%i==0) t+=i;

cout<<t;

return 0;

}