Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Lê Anh Phú
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Trần Mạnh
3 tháng 3 2021 lúc 17:23

Chương trình:program bai_10_chuong_4;uses crt;vars: string[100];i, dem: integer;Beginclrscr;write('Nhap xau vao:'); readln(s); dem:= 0;for i:= 1 to length(s) doif ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;Writeln('Trong xau s co '»dem,' chu so thap phan');readln;End.

Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 19:44

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

  if st[i] in ['0'..'9'] then write(st[i]:4);

readln;

end.

Linh Tran
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 3 2021 lúc 18:37

uses crt;

var st:string;

begin

clrscr;

write('Nhap xau st:'); readln(st);

delete(st,3,4);

writeln('Xau sau khi xoa la: ',st);

readln;

end.

Bùi Anh Tuấn
31 tháng 3 2021 lúc 19:53

H TC
Xem chi tiết
anime khắc nguyệt
3 tháng 3 2022 lúc 8:09

tk 
 

uses crt;

var st1:string;   

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st1);

d:=length(st1);

for i:=1 to d do

  if (st1[i]='a') and (st1[i+1]='b') and (st1[i+2]='c') then delete(st1,i,3);

writeln(st1);

readln;

end.

Trần Thanh Trọng
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2021 lúc 22:39

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

  if not(st[i] in ['a'..'z']) and not(st[i] in ['A'..'Z']) then write(st[i]);

readln;

end.

nguyễn an phát
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 3 2021 lúc 17:27

uses crt;

var st1:string;   

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st1);

d:=length(st1);

for i:=1 to d do

  if (st1[i]='a') and (st1[i+1]='b') and (st1[i+2]='c') then delete(st1,i,3);

writeln(st1);

readln;

end.

Khánh Mỹ
Xem chi tiết
_Jun(준)_
3 tháng 3 2021 lúc 18:05

 Cậu tham khảo nhé!!!

https://hoc24.vn/cau-hoi/viet-chuong-trinh-nhap-mot-xau-tu-ban-phim-thay-ky-tu-39a39-thanh-39i39-va-in-xau-da-thay-ra-man-hinh-thay-tat-ca-chu-39anh39-t.257698320219

Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 19:37

uses crt;

var s:string;

begin

clrscr;

write('Nhap xau: '); readln(s);

while pos('a',s)<>0 do

begin

insert('i',s,pos('a',s));

delete(s,pos('a',s),1);

end;

write('Xau sau khi chuyen la : ',s);

readln;

end.

NGUYỄN VIẾT LUẬN
Xem chi tiết
NGUYỄN VIẾT LUẬN
Xem chi tiết