viet chương trình 1 xâu tối đa 50 kí tự rồi thực hiện những công việc sau hiển thị xâu sau khi đã loại bỏ hết dấu cách

Question

aihong · Answer

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]=’ ‘ then st[i]:=’_’;

writeln(‘Xau sau khi thay doi la: ‘,st);

readln;

0 bình luận về “viet chương trình 1 xâu tối đa 50 kí tự rồi thực hiện những công việc sau hiển thị xâu sau khi đã loại bỏ hết dấu cách”