Những câu hỏi liên quan
U Lan
Xem chi tiết
U Lan
Xem chi tiết
U Lan
Xem chi tiết
U Lan
Xem chi tiết
Quỳnh Anh Đào
Xem chi tiết
Hello Det
4 tháng 5 2022 lúc 19:27

code pascal

var f,g:text;

var s:string;

begin

assign(f,'cau2.txt'); reset(f);

read(f,s);

assign(g,'KQ.txt'); rewrite(g);

write(g,upcase(s));

close(f);

close(g);

end.

Bình luận (0)
New wibu
Xem chi tiết
Minh Lệ
16 tháng 6 2020 lúc 21:13

Program HOC24;

const fi='baitap.txt';

fo='tep.txt';

var s: string[100];

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,s);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

for i:=1 to length(s) do if not(s[i] in ['0'..'9']) then write(f,s[i]);

close(f);

end;

begin

ip;

for i:=1 to n do if s[i] in ['0'..'9'] then write(s[i]);

out;

readln

end.

Bình luận (0)
Lan Phuong
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 4 2022 lúc 16:53

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.

Bình luận (0)
Cao Thị Hoa
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:11

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.

Bình luận (0)
LA VAN CAU
Xem chi tiết