Bai 1 : Viết chương trình đọc vào n số nguyên . Đếm xem có bao nhiêu số nguyên dương, bao nhiêu số nguyên âm Dữ liệu vào file: bt1.inp - Dòng 1: chứa số n - Dòng 2 chứa n số cách nhau ít nhất 1 khoảng trắng Dữ liệu ra file: bt1.out - Dòng 1: So cac so duong: …

lethuytien4823

2 năm trước

Bai 1 : Viết chương trình đọc vào n số nguyên . Đếm xem có bao nhiêu số nguyên dương, bao nhiêu số nguyên âm Dữ liệu vào file: bt1.inp - Dòng 1: chứa số n - Dòng 2 chứa n số cách nhau ít nhất 1 khoảng trắng Dữ liệu ra file: bt1.out - Dòng 1: So cac so duong: … - Dòng 1: So cac so am : … Vi du : INPUT 3 3 -2 4 OUTPUT So cac so am: 1 So cac so duong: 2 Bai2: Viết chương trình đọc vào n số nguyên (n < 1000). Đếm xem có bao nhiêu số nguyên tố? ( Su dung ham de kiem tra); Xuat ra file. VD : INPUT 3 3 2 4 OUTPUT 2

Loga Sinh Học lớp 12

0 lượt thích 20 xem

1 trả lời

Thích Trả lời

thanhctd2006

Bài 1:

Const Fi='BT1.INP';
Fo='BT1.OUT';
Var f,g: text;
A: array[1..1000] of longint;
n,i,da,dd: longint;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Read(f,n);
da:=0; dd:=0;
For i:=1 to n do
Begin
Read(f,A[i]);
If A[i]>0 then inc(dd)
Else If A[i]<0 then inc(da);
End;
Writeln(g,'So cac so am: ',da);
Write(g,'So cac so duong: ',dd);
Close(f);
Close(g);
End.

Bài 2:

Const Fi='BT.INP';
Fo='BT.OUT';
Var f,g: text;
A: array[1..1000] of longint;
n,i,d: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to a div 2 do
If a mod i = 0 then exit(false);
exit(true);
End;

Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Read(f,n);
da:=0; dd:=0;
For i:=1 to n do
Begin
Read(f,A[i]);
If ngto(A[i]) then inc(d);
End;
Write(g,d);
Close(f);
Close(g);
End.

Vote (0) Phản hồi (0) 2 năm trước

ltkphuong.c1ctbac.cl

Bài 1:

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Exercise 1: Complete the sentences with and, but, so, because, although. 1. I want to work as an interpreter in the future, ___________ I am studying Russian. 2. When she got the news from her family, she couldn’t do anything ___________ cry. 3. ___________ we live in the same building, we have hardly seen each other. 4. I went to buy a Rolling Stones CD, ___________ the shop didn’t have it. 5. Anna needs some money, ___________ she took a part time job. 6. Julie has a guitar ___________ she plays it really well. 7. The concert was cancelled ___________ we went to watch a movie instead. 8. ___________ my sister had not written a note for me, my fingers were injured. 9. This is an expensive ___________ useful book. 10. I don’t like him, ___________ I agree that he has good manners.

Em hãy cho bik trong bộ máy nhà nc có mấy loại cơ quan? hãy nêu tên các loại cơ quan đó?

giùm tui giải mấy bài nay với ạ

Cùng 1 vôn kế: -Khi đo hiệu điện thế giữa hai đầu của một bóng đèn, học sinh A ghi được kết quả chính xác là 4,25V - Và khi đo hiệu điện thế giữa hai đầu của một cái quạt nhỏ, học sinh B ghi được kết quả chính xác là 6,05V Hỏi vôn kế đã dùng đó có ĐCNN là bao nhiêu?

Viết một đoạn văn ngắn (khoảng 6 đến 8 câu), nêu cảm nhận của em về một nhân vật mà em thích trong văn bản “Buổi học cuối cùng” của A.Đô-đê

Những câu gạch thì ko cần phải làm nha! Mik đang cần gấp mau các bạn giúp! Cảm ơn nhiều!

Vận dụng nguyên lý về sự phát triển của triết học Mác – Lênin để giải thích vì sao chúng ta cần phải ủng hộ cái mới hợp quy luật, tạo điều kiện cho nó phát triển; chống lại quan điểm bảo thủ, trì trệ, định kiến.

Tên gọi của các chất có cấu tạo: 1.CH3-CH2-CH2-CH(C2H5)-CH3 2.CH3-C(C2H5)(CH3)-CH2-CH(C2H5)-CH2-CH3 3.CH3-CH(C2H5)-CH2-CH3

Cho số 1960.Số này sẽ thay đổi như thế nào?Hãy giải thích a,Xóa bỏ chữ số 0 b,Viết thêm chữ số 1 vào sau số đó c,Chuyển chỗ hai số 9 và 6 cho nhau

Viết đoạn văn của giờ phút chia ly của ông sáu và bé thu a) lập dàn ý chi tiết cho đề bài trên b) từ dàn ý trên viết đoạn mở bài và thân bài Giúp mình với mình cần nộp gấp

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến