Viết chương trình in ra màn hình các số chẵn từ 1 đến 100, mỗi số trên 1 dòng. (Pascal ạ) Giúp mình vs🥺🥺

Đáp án:

Program InSoChan;
var
  i: integer;
begin
  for i := 1 to 100 do
  begin
    if i mod 2 = 0 then
      writeln(i);
  end;
end.

Giải thích các bước giải: Chương trình trên sử dụng vòng lặp for để duyệt qua các số từ 1 đến 100. Trong vòng lặp, điều kiện if i mod 2 = 0 được kiểm tra để xác định xem số đó có phải là số chẵn hay không. Nếu là số chẵn, writeln(i) được sử dụng để in số đó ra màn hình trên một dòng riêng.Sau khi chạy chương trình, thì sẽ được các số chẵn từ 1 đến 100 được in ra màn hình, mỗi số trên một dòng.

uses crt;
var i:integer;
const n=100;
begin
clrscr;
i:=0;
repeat
begin
i:=i+1;
if i mod 2=0 then writeln(i);
end;
until
i>=n;
readln
end.