const fo='int.txt'
fo='out.txt'
var f1,f2:text;
m,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m);
readln(f1,n);
writeln(f2,m+n);
close(f1);
close(f2);
end.
Cho 2 tệp in.txt và out.txt:
1. Trên tệp in.txt lưu giá trị n, tính n! sau đó ghi lại kết quả vào tệp out.txt
2. Trên tệp in.txt ghi tên 4 học sinh trên 4 dòng, đọc và ghi lại tên của các học sinh đó trên tệp out.txt
Giả sử có bốn số nguyên lưu trong tệp DỮ LIEU.TXT.Hãy viết một chương trình mở tệp đã cho để tính tích của bốn số nguyên đó và đưa kết quả ra màn hình
Số chính phương được định nghĩa là bình phương của một số. Hãy viết chương trình tính tổng các số chính phương có trong một dãy (a1, a2, ..., am, với m là một số nguyên dương trong khoảng từ 1 đến 107 ).
Yêu cầu:
Dữ liệu vào là file: CP.INP
+ Dòng thứ nhất: Ghi số m (m trong khoảng từ 1 đến 107)
+ Dòng thứ hai ghi m phần tử trong dãy.
Dữ liệu ra là file: CP.OUT
+ Ghi tổng các số chính phương có trong dãy
+ Nếu không có số chính phương trong dãy thì ghi số 0.
Ví dụ:
| CP.INP | CP.OUT | CP.INP | CP.OUT |
|
5 2 4 5 7 25 |
29
|
4 2 3 1 7 |
0
|
Lưu bài làm vào file CP.PAS
Viết chương trình tính \(S=1+\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+...+\dfrac{1}{n}+...\)cho đến khi S>a với a là một số cho trước n là một số nguyên dương (ghi rõ ràng được không ạ)
Nhập vào 1 mảng có N số nguyên ( N< 1000 )
1) Tính tổng các số chia hết cho 3 trong mảng vừa nhập
2) Tìm giá trị nhỏ nhất trong mảng , đưa ra vị trí đó . Nếu có nhiều vị trí chứa giá trị nhỏ nhất thì đưa ra vị trí lớn nhất trong các vị trí đó .
Viết chương trình đọc từ bàn phím một loạt số nguyên cho đến khi nhập số 0.Hãy tính và in ra trung bình cộng của số chia hết cho 3 và 2(lấy 2 chữ số thập phân).
Viết chương trình nhập từ bàn phím số nguyên dương N
Đưa ra màn hình số lượng các số lẻ chia hết cho 5 trong phạm vi từ 1 đến N (ghi một cách rõ ràng nha )
Môn tin. Viết chương trình nhập vào 2 số nguyên dương a,b (đk a
