Câu a)
program in_so;
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 50 do write(i,' ');
readln;
end.
Câu b)
program in_kitu;
uses crt;
var i:char;
begin
clrscr;
for i:='a' to 'z' do write(i,' ');
readln;
end.
Câu c)
program in_so_le;
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 200 do
if i mod 2=1 then write(i,' ');
readln;
end.
Câu d)
program tinh_tong;
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
t:=t+i;
write('Tong 20 so tu nhien dau tien la: ',t);
readln;
end.