Viết chương trình tính tổng các số chẵn trong phạm vi từ 1 đến 30

0 bình luận về “Viết chương trình tính tổng các số chẵn trong phạm vi từ 1 đến 30”

1. Program BTT;
   Uses crt;
   Var s,i: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=1 to 30 do
                   If i mod 2 = 0 then s:=s+i;
           Write(‘Tong la: ‘,s);
           Readln
   End.

   Bình luận

2. uses crt;
   var a,b:longint;
   begin
   clrscr;
      For a:=1 to 30 do If a mod 2=0 then inc(b,a);
      Writeln(b);
   readln
   end.

   Bình luận