Program HOC24;
var f1,f2: text;
s: string;
d,i: byte;
begin
assign(f1,'DL.INP');
reset(f1);
assign(f2,'KQ.OUT');
rewrite(f2);
readln(f1,s);
d:=0;
for i:=1 to length(s) do if s[i] in ['0'..'9'] then d:=d+1;
write(f2,d);
close(f1);
close(f2);
end.
Cho tệp ' DL.INP ' chứa 1 xâu kí tự S, hãy đếm số chữ số có trong xâu S và ghi kết quả vào tệp ' KQ.OUT '
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
Cho tệp bai1.inp gồm:
Hàng 1:Chứa số nguyên N
Hàng 2:Chứa dãy số nguyên gồm N chữ số
Yêu cầu:-Tính tổng các số lẻ và đếm các số chẵn của dãy số trên
-Ghi kết quả tổng và đếm vào tệp bai1.out
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.
Bài 1:Cho tệp ' SO.INP' gồm nhiều dòng, mỗi dòng chứa duy nhất một số nguyên.
1. Đưa ra màn hình các số nguyên âm ở trong tệp
2. Hãy tính TỔNG các số chia hết cho 3 và 5 ở trong tệp và ghi kết quả vào tệp 'SOLOUT'
Bài 2:Cho tệp ' BAITAP.TXT' chứa các số nguyên dương được phân cách với nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng.
1.Hãy đếm và đưa ra màn hình số lượng các số chia hết cho 5 ở trong tệp .
2.Hãy tạo tệp ' KQ.OUT' chứa các số chính phương trong tệp ' BAITAP.TXT'
Tin 11 ạ , em đang cần gấp mọi người giúp em với .
mọi người giải giúp em bài này với ạ :
Cho tệp VANBAN.TXT mỗi dòng ghi không quá 255 kí tự
a) Hãy đếm xem trong tệp có bao nhiêu chữ số và đưa kết quả ra màn hình
b) Tạo tệp KQ.TXT chứa tất cả các kí tự là số xuất hiện trong tệp VANBAN.TXT
cho tệp SONGUYEN.INP chứa 3 số nguyên a,b,c có kiểu dữ liệu kiểu long long. tìm giá trị lớn nhất của 3 số trên và ghi kết quả vào tệp lonnhat.out
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
Cho tệp ăn.txt chứa dãy các số nguyên liên tiếp viết cách nhau 1 dấu cách .viết CT đọc dữ liệu từ tệp txt tính tổng các số chẵn và tổng các số lẻ ghi kết quả vào tập kq.txt trên 2 dòng
