Viết chương trình nhập vào xâu S từ bàn phím hiển thị ra màn hình s1 là các ký tự Thường
2 câu trả lời
program Min;
uses crt;
var s1,s2:string;
i:integer;
begin
clrscr;
write('Nhap xau: '); readln(s1);
s2:='';
for i:=1 to length(s1) do
if ('a'<=s1[i]) and ('z'>=s1[i]) then s2:=s2+s1[i];
writeln;
write(s2);
readln
end.
Chúc b học tốt~
Program Hotboy;
Uses crt;
Var St: String;
i: longint;
Begin
Clrscr;
Write('Nhap St: '); Readln(St);
For i:=1 to length(St) do
If St[i] in ['A'..'Z'] then St[i]:=Chr(Ord(St[i])+32);
Write(St);
Readln
End.
Câu hỏi trong lớp
Xem thêm
