Viết chương trình tính tổng các số chẵn(lẻ) cho 100 số tự nhiên đầu tiên

0 bình luận về “Viết chương trình tính tổng các số chẵn(lẻ) cho 100 số tự nhiên đầu tiên”

1. program oken;
   uses crt;
   var le,chan,i: integer;
   begin
       clrscr;
       le:=0; chan:=0;
       for i:=1 to 100 do
           if (i mod 2=0) then
               chan:=chan+i
           else 
               le:=le+i;
       writeln(‘Tong cac so chan tu 1->100: ‘,chan);
       writeln(‘Tong cac so le tu 1->100: ‘,le);
       readln;
   end.

   Bình luận

2. progam ct;

   uses crt;

   var i,S1,S2:integer;

   begin clrscr;

        S1:=0; S2:=0;

      for i:=1 to 100 do

         if i mod 2=0 then S1:=S1+i

                               else S2:=S2+i;

      writeln(‘Tong cac so chan tu 1-100 la: ‘,S1);

      writeln(‘Tong cac so le tu 1-100 la: ‘,S2);

   readln;

   end.

   Học tốt!

   Bình luận