3T

Viet chương trình pascal , nhap vào xâu s, thay thế kí tư 't' thành kí tự 'b'

NT
7 tháng 12 2021 lúc 23:08

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

readln(s);

d:=length(s);

for i:=1 to d do 

  if (s[i]='t') s[i]:='b'

cout<<s;

return 0;

Bình luận (1)

Các câu hỏi tương tự
LD
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
LC
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
HH
Xem chi tiết
H24
Xem chi tiết