Viết Chương Trình Pascal Nhập Số Nguyên N. Tính Các Số Fibonacci ...

HOC24

Lớp học Học bài Hỏi bài Giải bài tập Đề thi ĐGNL Tin tức Cuộc thi vui Khen thưởng
  • Tìm kiếm câu trả lời Tìm kiếm câu trả lời cho câu hỏi của bạn
Đóng Đăng nhập Đăng ký

Lớp học

  • Lớp 12
  • Lớp 11
  • Lớp 10
  • Lớp 9
  • Lớp 8
  • Lớp 7
  • Lớp 6
  • Lớp 5
  • Lớp 4
  • Lớp 3
  • Lớp 2
  • Lớp 1

Môn học

  • Toán
  • Vật lý
  • Hóa học
  • Sinh học
  • Ngữ văn
  • Tiếng anh
  • Lịch sử
  • Địa lý
  • Tin học
  • Công nghệ
  • Giáo dục công dân
  • Tiếng anh thí điểm
  • Đạo đức
  • Tự nhiên và xã hội
  • Khoa học
  • Lịch sử và Địa lý
  • Tiếng việt
  • Khoa học tự nhiên
  • Hoạt động trải nghiệm
  • Hoạt động trải nghiệm, hướng nghiệp
  • Giáo dục kinh tế và pháp luật

Chủ đề / Chương

Bài học

HOC24

Khách Khách vãng lai Đăng nhập Đăng ký Khám phá Hỏi đáp Đề thi Tin tức Cuộc thi vui Khen thưởng
  • Tất cả
  • Toán
  • Vật lý
  • Hóa học
  • Sinh học
  • Ngữ văn
  • Tiếng anh
  • Lịch sử
  • Địa lý
  • Tin học
  • Công nghệ
  • Giáo dục công dân
  • Tiếng anh thí điểm
  • Hoạt động trải nghiệm, hướng nghiệp
  • Giáo dục kinh tế và pháp luật
Hãy tham gia nhóm Học sinh Hoc24OLM Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài Chọn lớp: Tất cả Lớp 1 Lớp 2 Lớp 3 Lớp 4 Lớp 5 Lớp 6 Lớp 7 Lớp 8 Lớp 9 Lớp 10 Lớp 11 Lớp 12 Chọn môn: Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Tiếng anh thí điểm Đạo đức Tự nhiên và xã hội Khoa học Lịch sử và Địa lý Tiếng việt Khoa học tự nhiên Hoạt động trải nghiệm Hoạt động trải nghiệm, hướng nghiệp Giáo dục kinh tế và pháp luật Âm nhạc Mỹ thuật Gửi câu hỏi ẩn danh Tạo câu hỏi Hủy

Câu hỏi

Hủy Xác nhận phù hợp Chọn lớp Tất cả Lớp 12 Lớp 11 Lớp 10 Lớp 9 Lớp 8 Lớp 7 Lớp 6 Lớp 5 Lớp 4 Lớp 3 Lớp 2 Lớp 1 Môn học Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Tiếng anh thí điểm Đạo đức Tự nhiên và xã hội Khoa học Lịch sử và Địa lý Tiếng việt Khoa học tự nhiên Hoạt động trải nghiệm Hoạt động trải nghiệm, hướng nghiệp Giáo dục kinh tế và pháp luật Mới nhất Mới nhất Chưa trả lời Câu hỏi hay Đăng Khoa
  • Đăng Khoa
1 tháng 4 2021 lúc 20:04 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ố...Đọc tiếp

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

Xem chi tiết Lớp 8 Tin học 2 0 Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 1 tháng 4 2021 lúc 20:29

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.

Đúng 0 Bình luận (0) Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 1 tháng 4 2021 lúc 20:31

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.

Đúng 0 Bình luận (0) Khách Gửi Hủy zaghoul
  • zaghoul
1 tháng 4 2022 lúc 8:23 Cho số tự nhiên N và dãy Fibonacci 1, 1, 2, 3, 5, 8, 13, 21, 34 …Viết chương trình kiểm tra xem số N có phân tích được thành tổng của các số Fibonacci khác nhau hay không (tổng có ít nhất 02 số hạng). Thông báo ra màn hình biểu diễn đó, nếu không phân tích được, xuất thông báo “SO KHONG PHAN TICH DUOC” .Ví dụ: Nhập N 2Kết quả: “SO KHONG PHAN TICH DUOC”     Nhập N 10Kết quả: 10 8 + 2CẢM ƠN trước nhaĐọc tiếp

Cho số tự nhiên N và dãy Fibonacci 1, 1, 2, 3, 5, 8, 13, 21, 34 …

Viết chương trình kiểm tra xem số N có phân tích được thành tổng của các số Fibonacci khác nhau hay không (tổng có ít nhất 02 số hạng). Thông báo ra màn hình biểu diễn đó, nếu không phân tích được, xuất thông báo “SO KHONG PHAN TICH DUOC” .

Ví dụ: Nhập N = 2

Kết quả: “SO KHONG PHAN TICH DUOC”

     Nhập N = 10

Kết quả: 10 = 8 + 2

CẢM ƠN trước nha

Xem chi tiết Lớp 8 Tin học 0 0 Khách Gửi Hủy Ngáo Ngơ Alice
  • Ngáo Ngơ Alice
11 tháng 4 2021 lúc 8:24

Bài 1: Viết chương trình nhập vào 1 dãy số nguyên xuất dãy số đó ra màn hình tính tích các số chẵn và xuất ra màn hình.

Bài 2: Viết chương trình nhập 1 dãy số nguyên, xuất dãy số đó ra màn hình tính tổng các số chẵn các số lẻ và xuất ra màn hình.

Xem chi tiết Lớp 8 Tin học 3 0 Khách Gửi Hủy nguyễn an phát nguyễn an phát 11 tháng 4 2021 lúc 12:02

program timtich;

uses  crt;

var i,n:integer;

tich:longint;

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

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4);

tich:=1;

writeln;

for i:=1 to n do

if a[i] mod 2=0 then tich:=tich*a[i];

writeln('tich ca phan tu chan cua mang la:',tich);

readln;

end.

program timtong;

uses  crt;

var i,n:integer;

tong:longint;

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

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4);

tong:=0;

writeln;

for i:=1 to n do

if a[i] mod 2=0 then tong:=tong+a[i];

writeln('tong cac phan tu chan cua mang la:',tong);

tong:=0;

writeln;

for i:=1 to n do

if a[i] mod 2=1 then tong:=tong+a[i];

writeln('tong cac phan tu le cua mang la:',tong);

readln;

end.

Đúng 1 Bình luận (0) Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 11 tháng 4 2021 lúc 17:56

Bài 1: 

uses crt;

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

i,n,s:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

s:=1;

for i:=1 to n do 

  if a[i] mod 2=0 then s:=s*a[i];

writeln(s);

readln;

end.

Đúng 0 Bình luận (0) Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 11 tháng 4 2021 lúc 17:57

uses crt;

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

i,n,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t1:=0;

t2:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then t1:=t1+a[i]

else t2:=t2+a[i];

end;

writeln('Tong cac so chan la: ',t1);

writeln('Tong cac so le la: ',t2);

readln;

end.

Đúng 0 Bình luận (0) Khách Gửi Hủy Thanh Hằng Lê Thị
  • Thanh Hằng Lê Thị
9 tháng 11 2021 lúc 22:45

Viết thuật toán tính dãy Fibonacci: F1=1,F2=1 Fn= Fn-1+Fn-2 Nêu ý tưởng

Xem chi tiết Lớp 10 Tin học Bài 4: Bài toán và thuật toán 1 0 Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 9 tháng 11 2021 lúc 23:13

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

 

Đúng 0 Bình luận (0) Khách Gửi Hủy dinhnguyentuhuy
  • dinhnguyentuhuy
30 tháng 1 2021 lúc 21:08 Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện+ dòng 1 xuất ra màn hình dãy số vừa nhập+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!Đọc tiếp

Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện

+ dòng 1 xuất ra màn hình dãy số vừa nhập

+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?

+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?

+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?

+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 0 Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 30 tháng 1 2021 lúc 22:42

uses crt;

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

i,n,t,t1,t2,t3,min,max:integer;   

kt:boolean;

begin

clrscr;

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

for i:=1 to n do 

begin     

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

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do 

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

t:=t+a[i];

kt:=true;

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

if t mod i=0 then     

begin       

kt:=false;       

break;     

end;

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

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

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

writeln('Cac so o vi tri le cua day so la: ');

t1:=0;

for i:=1 to n do 

if i mod 2=1 then     

begin       

write(a[i]:4);       

t1:=t1+a[i];     

end;

writeln;

writeln('Tong cac so o vi tri le cua day so la: ',t1);

if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')

else writeln(t1,' khong la so chinh phuong');

writeln('Cac so o vi tri chan cua day so la: ');

t2:=0;

for i:=1 to n do 

if i mod 2=0 then     

begin       

write(a[i]:4);       

t2:=t2+a[i];     

end;

writeln;

writeln('Tong cac so o vi tri chan cua day so la: ',t2);

t3:=0;

for i:=1 to t2 do 

if t2 mod i=0 then t3:=t3+i;

if t3=t2 then writeln(t2,' la so hoan hao')

else writeln(t2,' khong la so hoan hao');

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;

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

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

writeln('Tong cua so lon nhat va so nho nhat la: ',max+min);

readln;

end.

Đúng 1 Bình luận (0) Khách Gửi Hủy dinhnguyentuhuy
  • dinhnguyentuhuy
28 tháng 1 2021 lúc 14:13 Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện + dòng 1 xuất ra màn hình dãy số vừa nhập + dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ? + dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không? + dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ? + dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!Đọc tiếpViết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện + dòng 1 xuất ra màn hình dãy số vừa nhập + dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ? + dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không? + dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ? + dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !! Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 0 Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 28 tháng 1 2021 lúc 20:43

uses crt;

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

n,i,t,kt,j,t1,t2,t3,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

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

kt:=0;

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

  if t mod i=0 then

begin

kt:=1;

break;

end;

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

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

t1:=0;

writeln('Cac so o vi tri le cua day la: ');

for i:=1 to n do 

  if i mod 2=1 then 

begin

write(a[i]:4);

t1:=t1+a[i];

end;

writeln;

writeln('Tong cac so o vi tri le la: ',t1);

if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')

else writeln(t1,' khong la so chinh phuong');

t2:=0;

writeln('Cac so o vi tri chan la: ');

for i:=1 to n do 

  if i mod 2=0 then 

begin

write(a[i]:4);

t2:=t2+a[i];

end;

writeln;

writeln('Tong cac so o vi tri chan la: ',t2);

t3:=0;

for i:=1 to t2 do 

if t2 mod i=0 then t3:=t3+i;

if t3=t2 then writeln(t2,' la so hoan hao')

else writeln(t2,' khong la so hoan hao');

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;

writeln('Gia tri lon nhat la: ',max);

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

writeln('Tong cua hai so lon nhat va nho nhat la: ',max+min);

readln;

end.

Đúng 1 Bình luận (1) Khách Gửi Hủy Hiền Nguyễn
  • Hiền Nguyễn
26 tháng 4 2021 lúc 20:23 a) Nhập vào hai số nguyên a và b (1≤ a,b ≤ 109). Tính và in lên màn hình ước chung lớn nhất(UCLN) v à bội chung nhỏ nhất (BCNN) của a,b.b)Dãy số fibonacy được định nghĩa như sau:f1f21fnfn-1+fn-2 (với n 3)Hãy viết chương trình in ra n số đầu tiên của dãy fibonacy.Dữ liệu nhập:là số nguyên n (1n30)Dự liệu xuất: là n số fibonacy đầu tiên trên cùng một dòng, mỗi số cách nhau một khoảng trắng. Đọc tiếp

a) Nhập vào hai số nguyên a và b (1≤ a,b ≤ 109). Tính và in lên màn hình ước chung lớn nhất(UCLN) v à bội chung nhỏ nhất (BCNN) của a,b.

b)Dãy số fibonacy được định nghĩa như sau:

f1=f2=1

fn=fn-1+fn-2 (với n >=3)

Hãy viết chương trình in ra n số đầu tiên của dãy fibonacy.

Dữ liệu nhập:là số nguyên n (1<=n<=30)

Dự liệu xuất: là n số fibonacy đầu tiên trên cùng một dòng, mỗi số cách nhau một khoảng trắng.

 

Xem chi tiết Lớp 8 Tin học Bài 9. Làm việc với dãy số 2 0 Khách Gửi Hủy nguyễn an phát nguyễn an phát 27 tháng 5 2021 lúc 14:24

a)

program UCLN_va_BCNN;

uses crt;

var a,b,c,r,p:integer;

begin

clrscr;

write('nhap a,b:');readln(a,b);

if a<b then 

begin

c:=a;

a:=b;

b:=c;

end;

p:=a*b;

r:=a mod b;

while r<>0 do

begin

a:=b;

b:=r;

r:=a mod b;

end;

writeln('UCLN la: ',b);

writeln('BCNN la: ',p div b);

readln;

end.

Đúng 0 Bình luận (0) Khách Gửi Hủy nguyễn an phát nguyễn an phát 27 tháng 5 2021 lúc 14:30

b)

program fibonaci;

uses crt;

var i,n:integer;

a:array[1..30]of integer;

begin

clrscr;

repeat

write('nhap n:');readln(n);

if (n<1)or(n>30) then writeln('so n phai lon hon hoac bang 1 va nho hon hoac bang 30:);

until (n>=1)and(n<=30);

a[1]:=1;

a[2]:=1;

for i:=3 to n do

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

writeln(n,' so fibonaci dau tien la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

Đúng 0 Bình luận (0) Khách Gửi Hủy NGUYỄN LÊ XUÂN THỊNH
  • NGUYỄN LÊ XUÂN THỊNH
22 tháng 2 2023 lúc 19:56

(Viết chương trình Pascal sử dụng câu lệnh while...do)

1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.

2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.

Xem chi tiết Lớp 8 Tin học Bài 8. Lặp với số lần chưa biết trước 2 1 Khách Gửi Hủy Kiều Vũ Linh Kiều Vũ Linh CTV 23 tháng 2 2023 lúc 11:23

Bài 1

Var s,i:integer;

tb:real;

Begin

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

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

Đúng 2 Bình luận (1) Khách Gửi Hủy Kiều Vũ Linh Kiều Vũ Linh CTV 23 tháng 2 2023 lúc 11:27

Bài 2

Var i,n,souoc:integer;

Begin

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

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

Đúng 2 Bình luận (1) Khách Gửi Hủy le manh vu
  • le manh vu
20 tháng 2 2022 lúc 20:12

1 .viết chương trình nhập dãy có 10 chữ số kiểm tra dãy đó có tăng hay không

2 . nhập dãy n số nguyên tính và in ra màn hình số chẵn cà số lẽ đầu tiên của dãy đó  

Xem chi tiết Lớp 11 Tin học Bài 11: Kiểu mảng 1 0 Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 20 tháng 2 2022 lúc 22:51

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long a[10],i;

bool kt;

int main()

{

for (i=1; i<=10; i++) cin>>a[i];

kt=true;

for (i=1; i<=9; i++) if (a[i]>a[i+1]) kt=false;

if (kt==true) cout<<"YES";

else cout<<"NO";

return 0;

}

Đúng 0 Bình luận (0) Khách Gửi Hủy dinhnguyentuhuy
  • dinhnguyentuhuy
13 tháng 12 2020 lúc 5:09

Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện 

+ Xuất ra màn hình các số vừa nhập

+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?

Làm giúp với !

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 0 Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 13 tháng 12 2020 lúc 17:15

uses crt;

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

i,n,t,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Cac so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

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

kt:=0;

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

  if t mod j=0 then 

    begin

kt:=1;

break;

end;

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

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

readln;

end.

Đúng 0 Bình luận (1) Khách Gửi Hủy

Từ khóa » Tổng Các Số Fibonacci Pascal