Mọi người ơi giúp em làm sao để xuất ra màn hình từ 1 đến 200 chẵn
2 câu trả lời
program bai_giai;
uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 200 do if(i mod 2=0)then write(i,' ');
readln
end.
Thuật toán:
B1: i←2;
B2: i>200 thì kết thúc;
B3: xuất i ra màn hình;
B4: i←i+2;
B5: quay lại B2;
code:
uses crt;
var i:longint;
begin
clrscr;
i:=2;
while i>n do
begin
write(i,' ');
inc(i,2);
end;
readln;
end.
Câu hỏi trong lớp
Xem thêm