viết chương trình in ra màn hình 10 lần tên em

0 bình luận về “viết chương trình in ra màn hình 10 lần tên em”

1. Program ten_cua_em;
   Uses crt;
   Var i: integer;
   Begin
   Clrscr;
   For i:=1 to 10 do
   Writeln(ten cua em)
   Readln
   End.

   Xin CTLHN

   Bình luận

2. program in;

   uses crt;

   var i: byte;

         Hoten: string;

   Begin

            clrscr;

            write(‘Nhap ho & ten: ‘); readln(Hoten);

            writeln;

            for i:=1 to 10 do writeln(Hoten);

            readln

   End.

   Bình luận