BÀI 8: Viết chương trình nhập 1 xâu từ bàn phím. Đưa ra màn hình xâu đó và độ dài của xâu

0 bình luận về “BÀI 8: Viết chương trình nhập 1 xâu từ bàn phím. Đưa ra màn hình xâu đó và độ dài của xâu”

1. uses crt;

   var

          s:string;

   begin

             clrscr;

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

             writeln(‘Xau vua nhap: ‘,s);

             writeln(‘Do dai xau: ‘)

             writeln(length(s));

             readln;

   end.

   Bình luận

2. uses crt;

   var

          s:string;

   begin

             clrscr;

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

             writeln(‘Xau vua nhap: ‘,s);

             writeln(‘Do dai xau: ‘)

             writeln(length(s));

             readln;

   end.

   Bình luận