Viết chương trình đưa ra xâu S với các kí tự chữ cái trong xâu đã được chuyển thành chữ cái in hoa

Viết chương trình đưa ra xâu S với các kí tự chữ cái trong xâu đã được chuyển thành chữ cái in hoa

0 bình luận về “Viết chương trình đưa ra xâu S với các kí tự chữ cái trong xâu đã được chuyển thành chữ cái in hoa”

  1. var s: string;

        I: byte;

    Begin

        Write(‘nhap xau: ‘); readln(s);

        For i:=1 to length(s) do

            S[i]:=upcase(s[i]);

        Write(s);

        Readln

    End.

    Bình luận
  2. uses crt;

    var s:string;

    i,d:integer;

    begin

    clrscr;

    write(‘Nhap xau S:’); readln(s);

    d:=length(s);

    for i:=1 to d do 

     s[i]:=upcase(s[i]);

    writeln(s);

    readln;

    end.

    Bình luận

Viết một bình luận