Nhập vào chữ cái thường in ra chữ đó 10 lần

0 bình luận về “Nhập vào chữ cái thường in ra chữ đó 10 lần”

1. program in_10lan;

   uses crt;

   var s:string;

         i:byte;

   begin

          clrscr;

          write(‘Nhap chu cai: ‘);  readln(s);

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

          readln;

   end.

   Bình luận

2. uses crt;

   var kt: char;

   i: integer;

   begin

   clrscr;

   write (‘nhap vao chu cai thuong: ‘);   readln (kt);

   for i:=1 to 10 do write (kt);

   readln;

   end.

   Bình luận