Em đang gấp ạ???????????????????????? Viết chương trình Pacsal thực hiện các việc sau: Nhập một sâu từ bàn phím.Tạo ra sâu chữ hoa tương ứng vs sâu đã nhập. Viết

0 bình luận về “Em đang gấp ạ???????????????????????? Viết chương trình Pacsal thực hiện các việc sau: Nhập một sâu từ bàn phím.Tạo ra sâu chữ hoa tương ứng vs sâu đã nhập. Viết”

1. program in_hoa;

   uses crt;

   var st:string;

         i:byte;

   begin

          clrscr;

          write(‘Nhap xau: ‘);  readln(st);

          for i:=1 to length(st) do

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

          write(st);

          readln;

   end.

   Bình luận

2. program oken;
   uses crt;
   var s: string;
       i: byte;
   begin
       clrscr;
       write(‘Nhap xau: ‘); readln(s);
       for i:=1 to length(s) do
           s[i]:= upcase(s[i]);
       writeln(‘Xau in hoa: ‘,s);
       readln;
   end.

   Bình luận