Mn giúp em với ạ! Em đang cần gấp lắm TT 1.Viết chương trình nhập xâu st: a) Xuất ra màn hình xâu vừa nhập b) Đếm ký tự bất kỳ trong xâu c) Chuyển từ 'truong' thành từ 'lop' 2. Viết chương trình nhập xâu st: a) Xuất ra màn hình xâu vừa nhập b) Đổi các ký tự đó thành chữ in hoa rồi in ra màn hình c) Đếm và xóa các từ 'cong' có trong xau
2 câu trả lời
Program NN;
Uses crt;
Var St: String;
i: longint;
Begin
Clrscr;
Write('Nhap St: '); Readln(St);
For i:=1 to length(St) do
St[i]:=Upcase(St[i]);
Write(St);
Readln
End.
uses crt;
var s:string;
begin
clrscr;
write('s=');readln(s);
writeln(upcase(s));
readln
end.
Câu hỏi trong lớp
Xem thêm
