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 14/08/2021 Bởi Kennedy 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
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 Bình luận
var a: string; i: byte; begin write(‘Nhap ho ten cua ban: ‘); readln(a); for i:=1 to 100 do writeln(a); readln; end. Bình luận
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.