Program HOC24;
var s: string;
begin
write('Nhap xau : '); readln(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then write(s[i]);
readln
end.
Viết chương trình nhập dữ liệu từ tệp 'songuyen.txt' . tính tổng các số nguyên dương của tệp và lưu vào tệp 'ketqua.txt'
mng giúp em với ạ ngày mai e thy r ạVIết chương trình đọc 3 số nguyên a,b,c (trên 1 dòng khoảng cách giữa chúng là 1 dấu cách) từ tệp Doc.txt . Ghi vào tệp Ghi.txt . trung bình cộng của 3 số đó.
Mng giúp mình các BT cuối kì vs ạ Bài 1: Viết chương trình nhập từ bàn phím 2 số nguyên a,b; Sau đó ghi chúng vào tệp có tên D:\Baitaptin.txt. Bài 2: Viết chương trình nhập từ bàn phím 1 xâu không quá 180 kí tự; Xuất xâu vừa nhập ra màn hình rồi ghi xâu đó vào tệp có tên E:\tepxau.txt. Bài 3: Viết chương trình nhập từ bàn phím 2 số nguyên dương; Tính và ghi tổng của chúng vào tệp có tên ‘teptong.txt’ rồi xuất tổng ra màn hình.
viết chương trình nhập một xâu từ tệp data.txt tạo sâu mới từ sâu vừa nhập nhưng chỉ chứa kí tự số kết quả đưa ra tệp kq.txt
viết chương trình nhập vào 1 xâu và 1 ký tự đếm số lượng ký tự này trong xâu đã nhập
VIết chương trình đọc một dãy 5 số nguyên từ tệp có tên BAITAP.txt in ra màn hình dãy số nguyên đó
Viết chương trình nhập vào dãy số nguyên 1. In ra màn hình các số chính phương 2. Kiểm tra xem có bao nhiêu số chính phương chẳn
Đề : Viết chương trình mở tệp, in hai số a,b trong tệp ra màng hình và ghi vào tệp ketqua.txt.-Mọi người giupws vs ạ !
