viết chương trình in ra mà hình các số chẵn từ 1 đến 50

2 câu trả lời

uses crt;
var i:integer;
begin
clrscr;
   for i:=1 to 50 do
      if i mod 2=0 then write(i,' ');
readln
end.

program Khoa_dang09;

uses crt;
var i:longint;
begin
clrscr;

for i:=1 to 50 do if i mod 2=0 then writeln(i:2);
readln
end.