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) 20/08/2021 Bởi Savannah 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)
Program BTH;uses crt;var a:byte;b:string;Beginclrscr;write(‘Nhap ten cua ban: ‘);readln(b);For a:=1 to 10 dowriteln(b);readln;end. Bình luận
var i:byte; s:string; begin write(‘Nhap ten: ‘); readln(s); for i:=1 to 10 do writeln(s); readln end. Bình luận
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.