Uses crt;
Var i,n,tong:integer;
a:array[1..10000] of integer;
f1,f2:text;
Begin
clrscr;
Assign(f1,'tinhtong.inp');
Assign(f2,'tinhtong.out');
tong:=0;
Reset(f1);readln(f1,n);
For i:= 1 to n do
Begin
read(f1,a[i]);
tong:=tong+a[i];
End;
close(f1);
rewrite(f2);
Writeln(f2,tong);
Readln;
End.
em hãy tạo pt pascal tạo tệp songuyen.dat gồm các số nguyên viết cách nhau bởi 1 khoảng trắng và không kết thúc bằng kí tự xuống dòng em hãy tính tích các số nguyên tim số nguyên lớn nhất rồi ghi vào tệp ketqua.dat
Câu 1: Cho tệp HCN.TXT chứa liên tiếp các cặp số nguyên (a, b) là cạnh của các hình chữ nhật (các số cách nhau bởi dấu cách và không kết thúc bởi ký tự xuống dòng). Viết chương trình đọc các cặp cạnh a, b từ tệp HCN.TXT, tính chu vi và diện tích của các hình chữ nhật tương ứng và ghi vào tệp KETQUA.TXT.
Cho tệp DATA.TXT chứa liên tiếp các số nguyên cách nhau bằng dấu cách và không kết thúc bằng kí tự xuống dòng, hãy lập trình tìm và in các số chẵn trong tệp DATA.TXT ra màn hình
cho tệp chứa liên tiếp các số nguyên cách nhau bằng dấu cách và không kết thúc bằng kí tự xuống dòng. hãy viết chương trình của dãy số nguyên đó ra màn hình
cho dãy số nguyên gồm N phần tử,tính tổng các số dương và âm.So sánh giá trị tuyệt đối của tổng số dương và âm ghi kết quả vào tệp Mang.TXT
viết chương trình tạo tệp baitap.txt trong dó dòng đầu tiên là n số lượng các số nguyên, dòng thứ hai là n số nguyên cách nhau 2 kí tự trắng được nhập từ bàn phím
cho tệp dulieu.inp gồm các số nguyên mỗi số trên 1 dòng . Đếm các số chẵn. Ghi kết quả ra tệp dulieu.out
1/Học sinh làm bài trên giấy này.cho dãy số nguyên nằm trong tệp so_da_cho.txt, các số cách nhau một dấu cách. Kiểm tra các số trong dãy số đó nếu là số ngủyen tố ghi kết quả ra tệp so_nguyen_to.txt. a/trong bài toán trên ta phải khai báo bao nhiêu biến tệp b/viết lại thao tác gắn trnr tệp,mở tệp để đọc/ ghi dữ liệu,đọc ghi dữ liệu từ tệp ,đóng tệp ứng với các tệp của bài toán trên.
