viết chương trình nhập vào 1 xâu, sau đó loại bỏ cách kí tự khoảng trắng bằng thao tác ghép xâu rồi in ra màn hình

Question

kimnguen · Answer

Program oken;

uses crt;

var xau : string;

i : longint;

begin

clrscr;

write (‘Nhap vao 1 xau: ‘); readln (xau);

for i:=1 to length(xau) do

if (xau[i] <> ‘ ‘) and (xau[i + 1] = ‘ ‘) then delete(xau, i+1, 1);

writeln(xau);

readln;

end.

baoquyen · Answer

program Tin_hoc;

uses crt;

var i:integer;

s1,s2:string;

begin

clrscr;

writeln(‘Nhap xau:’);readln(s1);

s2:=”;

for i:= 1 to length(s1) do if ord(s1[i]) <> 32 then s2:=s2+s1[i];

writeln(‘Xau da loai bo dau cach la:’);writeln(s2);

readln;

end.

0 bình luận về “viết chương trình nhập vào 1 xâu, sau đó loại bỏ cách kí tự khoảng trắng bằng thao tác ghép xâu rồi in ra màn hình”