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.
