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 rồi in ra màn hình
2 câu trả lời
program baitap;
uses crt;
var S : string;
i : byte;
begin
clrscr;
write ('Nhap xau :');
readln ( S );
for i := 1 to length( S ) do
if ( S[i] <> ' ' ) and ( S[i + 1] = ' ' ) then delete ( S, i+1, 1 );
write ( S );
readln;
end.
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.
Câu hỏi trong lớp
Xem thêm
