viết chương trình pascal để viết ra màn hình đen họ tên của mình 100 lần

2 câu trả lời

uses crt;

var  i:byte;

begin

clrscr

for  i:=1 to 100 do

writeln                                              ('tên mình ')  ví dụ ('cn3263317')

readln

end 

chúc bạn học tốt 

var a: string; i: byte;

begin

write('Nhap ho ten cua ban: '); readln(a);

for i:=1 to 100 do writeln(a);

readln;

end.

Câu hỏi trong lớp Xem thêm