Tin học tin 8

Trương Thanh Vũ

Học sinh chăm học
Thành viên
6 Tháng mười hai 2017
123
246
84
23
Quảng Nam
Trường THPT Huỳnh Ngọc Huệ
uses crt;
var st:string;
i,lim:byte;
begin
clrscr;
st:=''''Turbo Pascal'''';
lim:=80-length(st)+1;
for i:=1 to lim do
begin
gotoxy(i,15); {Viet xau st vao dong 15}
write(st);
delay(100);
delline;
end;
gotoxy(lim,15);
write(st);
readln
end.
nếu sai bạn nói mình xem lại nha :D
 
  • Like
Reactions: Thái Vĩnh Đạt

Thái Vĩnh Đạt

Học sinh chăm học
Thành viên
6 Tháng tám 2017
592
263
134
20
Phú Yên
THCS Huỳnh Thúc Kháng
Viết chương trình nhập n là số nguyên dương, in ra màn hình các số nguyên tố trong dãy số gồm n số (viết 2 chương trình, trong đó có 1 cái dùng boolean, cái còn lại không dùng)
 
Top Bottom