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;

}

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";

}

#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;

}

?

Tham khảo!

Bạn đã biết dùng vòng lặp để kiểm tra xem 1 số có phải là số nguyên tố không chưa?
Với kiểu hiển thị ra màn hình n số nguyên tố đầu tiên thì ta chưa biết được số đấy trong khoảng nào, vậy thì cần dùng vòng lặp chưa biết số lần lặp (while). Bạn sẽ khởi tạo 1 biến để đếm số số nguyên tố tìm được và 1 biến lưu tổng các số nguyên tố đó, 1 biến để chạy. rồi bạn dùng vòng lặp while để xét lần lượt từng giá trị của biến chạy, nếu biến chạy là số nguyên tố (dùng 1 vòng lặp để kiểm tra) thì tăng đếm và cộng tổng. cứ thế đếm đủ thì nó out khỏi while và bạn in ra kết quả.

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

uses crt;

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

i,n,min,tam,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

min:=a[1];

for i:=1 to n do 

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

writeln('Gia tri nho nhat la: ',min);

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do write(a[i]:4);

readln;

end.

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")

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;

}