viết chương trình xuất ra 3 chữ cái đầu tiên của tên em bằng các kí tự * lưu ý dùng các chương trình con xuất ra màn hình một chữ cái Giúp mình với mì

0 bình luận về “viết chương trình xuất ra 3 chữ cái đầu tiên của tên em bằng các kí tự * lưu ý dùng các chương trình con xuất ra màn hình một chữ cái Giúp mình với mì”

1. Như đề bài:

   uses crt;
   var i:longint;
   s:string;
   procedure p(s:char);
   begin
      write(s);
   end;
   begin
   clrscr;
      write(‘Nhap ten em: ‘);readln(s);
      p(‘*’); p(‘*’); p(‘*’); 
      for i:=4 to length(s) do p(s[i]);
   readln
   end.

   Bình luận