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