program ko_co_ten;
uses crt;
var i:integer;
begin
clrscr;
for i:1 to 50 do writeln(i);
readln;
end.
program fh;
uses crt;
var i: integer;
begin
clrscr;
writeln('50 so chan tu nhien dau tien la: ');
for i:=1 to 50 do write(i);
readln
end.
var i:integer;
begin
for i:=1 to 50 do
if i mod 2=0 then write(i);
readln;
end.
Bài của tất cả các bạn sai rồi . Các bạn làm như vậy thì kết quả sẽ là in 25 số chẵn thay vì 50 số chẵn . Cách làm như sau :
Lời giải :
program hotrotinhoc ;
var i : integer ;
Begin
for i:= 1 to 100 do
if i mod 2 =0 then write(i,' ');
readln
end.