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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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~

   Bình luận