Viết chương trình thực hiện in ra 10 lần họ tên của em(Dùng câu lệnh For... to...do)

2 câu trả lời

Program BTH;
uses crt;
var a:byte;
b:string;
Begin
clrscr;
write('Nhap ten cua ban: ');readln(b);
For a:=1 to 10 do
writeln(b);
readln;
end.

var i:byte;

s:string;

begin

write('Nhap ten: '); readln(s);

for i:=1 to 10 do

writeln(s);

readln

end.