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
uses crt;
var s:string;
begin
clrscr;
write(‘s=’);readln(s);
writeln(upcase(s));
readln
end.
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.