Question

Viết chương trình in ra tên của bạn 10 lần.

Answer 1

Program BT ;
var i : Integer ;
begin
for i := 1 to 10 do
writeln ( ' Nguyen Ngoc Minh Thu ' , i ) ;
readln ;
end.

Answer 2

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.

Answer 3

Program inten;

Var a:string; i:word;

Begin

Write('Nhap ten cua ban'); Readln(a);

For i:=1 to 9 do writeln(a);

Readln;

end.