GIÚP MN ĐI >LÀM 1 TRONG HAI CÂU THÔI -Viết chương trình in ra tích các số chẵn, tích các số lẻ của 20 số tự nhiên đầu tiên. -Viết chương trình in ra c

0 bình luận về “GIÚP MN ĐI >LÀM 1 TRONG HAI CÂU THÔI -Viết chương trình in ra tích các số chẵn, tích các số lẻ của 20 số tự nhiên đầu tiên. -Viết chương trình in ra c”

1. Bài 1:

   program tinhtich;

   uses crt;

   var i:integer

          tc,tl:longint;

   begin

   clrscr;

   tc:=0;   tl:=0;

   for i:=1 to 20 do

     if i mod 2=0 then tc:=tc*i else tl:=tl*i;

   writeln(‘Tich chan cac so tu 1 den 20 la: ‘,tc);

   writeln(‘Tich le cac so le tu 1 den 20 la: ‘,tl);

   readln

   end.

   Bài 2:

   var n,i,d:integer;

   var n,i,d:integer;

   begin

   clrscr;

   write(‘Nhap n: ‘);  readln(n);

   d:=0;

   writeln(‘Cac so le tu 1 den n la: ‘);

   for i:=1 to n do

      if i mod 2=1 then 

         begin

              write(i,’ ‘);

              d:=d+1;

              if d mod 15=0 then writeln;

         end;

   readln

   end.

   Bình luận

2. bài 2 nha bạn

   Bình luận