a)

for i:=1 to 50 do write (i:3);

b)

for i:='a' to 'z' do write (i,'  ');

c)

for i:=1 to 100 do if i mod 2<>0 then write (i:3);

d)

for i:=1 to 20 s:=s+i;

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.