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