uses crt;
const fi='songuyen.text'
var f1:text;
a,b:integer;
begin
clrscr;
readln(a,b);
assign(f1,fi);rewrite(f1);
writeln(f1,a,' ',b);
close(f1);
readln;
end.
viết chương trình nhập 2 số x,y từ bàn phím, tính tổng, hiệu, tích, thương của 2 số và ghi kết quả vào tệp 'KQ.TXT'
Câu1: viết chương trình nhập từ bàn phím bất kì kí tự(<=100) .tính và đưa ra màn hình
Xâu đó sau khi xoá số
Trong xâu có bao nhiêu dấu cách
Đưa ra màn hình độ dài xâu đó
Câu 2: Viết CT gồm 2 xâu bất kì. Hãy ghi vào trong tệp kq.out xâu có độ dài lớn hơn, TH 2 xâu bằng nhau thì ghi xâu nhập trước.
Câu 3: viết chương trình nhập vào từ bàn phím các số nguyên (<=100) . Tính và đưa ra màn hình trung bình cộng các số chẵn ?
Viết công thức nhập vào từ bàn phím 10 số nguyên bất kì . Ghi 10 số nguyên trên vào tệp KQ.TXT và 10 số nguyên trên nằm trên 1 hàng và mỗi số cách nhau 1 dấu cách (hàng 1).và ghi số lượng số dương vào hàng 2 trong tệp ?
Viết chương trình đọc từ tệp " input.txt" ( tệp " input .txt" chứa 4 số nguyên ) ghi vào tệp " output.txt" tổng 4 số nguyên trong tệp " input.txt" Tong là:10
Cho 1 tệp có tên là mang.txt viết chương trình đọc dữ liệu từ tệp sau đó tính tổng các giá trị đọc được ghi vào tệp tong.txt
Viết chương trình cho máy tính đọc từ tệp DAYSO.txt gồm các số nguyên có ít nhất 2 dòng
Tính tổng cấc số có trong tệp DAYSO.txt, ghi kết quả ra màn hình và tệp KETQUA.txt
Tính tổng và trung bình cộng các số chẵn trong tệp dayso.txt, ghi các kết quả vào tệp KETQUA.txt
cho một số nguyên dương n đọc từ tệp cau1.mp (0<n<1000) viết chương trình ghi vào tệp cau1.out tổng các số chẵn trong phạm vi từ 1 đến n
Cho tệp dulieuvao.txt gồm nhiều dòng, mỗi dòng chứa 2 số nguyên a, b. Các số cách nhau bởi dấu cách. Viết chương trình đọc dữ liệu từ tệp, tính trung bình cộng và ghi kết quả ra tệp dulieura
Viết chương trình ghi giá trị của 2 biến a,b và tổng a+b vào tệp f với ổ đĩa D:\bai1.inp
