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
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i,dem;
int main()
{
freopen("xau.inp","r",stdin);
freopen("xau.out","w",stdout);
cin>>st;
d=st.length();
dem=0;
for (i=0; i<=d-1; i++)
if (st[i]=='a') dem++;
cout<<dem;
return 0;
}
const fi='vanban.inp';
fo='vanban.out';
var f1,f2:text;
dem,i:integer;
a:array[1..1000]of string;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,a[dem]);
end;
writeln(f2,dem);
close(f1);
close(f2);
end.
const fi='inp.inp';
fo='out.inp';
var f1,f2:text;
st:array[1..100]of string;
i,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,st[n]);
end;
for i:=1 to n do
writeln(f2,length(st[i]));
close(f1);
close(f2);
end.
uses crt;
const fi='songuyen.inp';
fo='songuyen2.out';
var a:array[1..100]of integer;
i,n,t1:integer;
f1,f2:text;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
t1:=0;
for i:=1 to n do if a[i] mod 2<>0 then t1:=t1+a[i];
writeln(t1);
writeln(f2,t1);
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
close(f1);
close(f2);
readln;
end.
const fi='kt.txt';
fo='kq.out';
var f1,f2:text;
s:string;
i,dem,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
vt:=pos('anh',s);
while vt<>0 do
begin
delete(s,vt,3);
insert(s,vt,'em');
vt:=pos('anh',s);
end;
writeln(f2,s);
close(f1);
close(f2);
end.
const fi='demxau.inp',
fo='demxau.out';
var f1,f2:text;
st:string;
d,i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=' ' then dem:=dem+1;
writeln(f2,dem+1);
close(f1);
close(f2);
end.
uses crt;
const fi='vanban.txt';
fo='kq.txt';
var f1,f2:text;
st:string;
i,d,dem,k,dem1,x,y,dem2,kt,e:integer;
j:char;
a,b:array[1..100]of integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
{---------------------cau-a------------------}
d:=length(st);
dem:=0; dem1:=0;
for i:=1 to d do
for j:='0' to '9' do
if st[i]=j then
begin
inc(dem);
val(st[i],x,y);
inc(dem1);
a[dem1]:=x;
end;
writeln(dem);
{------------cau-b------------------}
b[1]:=a[1];
dem2:=1;
for k:=1 to dem1 do
begin
kt:=0;
for e:=1 to dem2 do
if a[k]=b[e] then kt:=1;
if kt=0 then begin
inc(dem2);
b[dem2]:=a[k];
end;
end;
for k:=1 to dem2 do write(f2,b[k]:4);
close(f1);
close(f2);
readln;
end.