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.