Bài tập 2: Viết chương trình in ra màn hình các số từ 1 đến 200 sao cho mỗi số cách nhau 1 kí tự trống
2 câu trả lời
program bai_lam;
uses crt;
var n,i:longint;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do if(n mod i=0)then write(i,' ');
readln
end.
Chúc bn hok tốt ^-^
program in;
uses crt;
var a:byte;
begin
clrscr;
for a:= 1 to 200 do write(a' ' );
readln
end.
Câu hỏi trong lớp
Xem thêm