Câu 1: Em hãy viết câu lệnh lặp (For …Do) cho các yêu cầu sau: a) In ra màn hình 50 số tự nhiên đầu tiên b) In ra màn hình các kí tự từ a đến z c

0 bình luận về “Câu 1: Em hãy viết câu lệnh lặp (For …Do) cho các yêu cầu sau: a) In ra màn hình 50 số tự nhiên đầu tiên b) In ra màn hình các kí tự từ a đến z c”

1. 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;

   Bình luận

2. 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.

   Bình luận