Viết chương trình tính tổng các số chẵn từ 5 -> 75

0 bình luận về “Viết chương trình tính tổng các số chẵn từ 5 -> 75”

1. Program FNG;
   Uses crt;
   Var i,s: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=5 to 75 do
                   If i mod 2 = 0 then s:=s+i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận

2. program Tin;

   uses crt;

   var i,tong:integer;

   begin

   clrscr;

   tong:=0;

   for i:= 5 to 75 do if  i mod 2 = 0 then tong:=tong+i;

   writeln(‘Tong cac so chan la: ‘,tong);

   readln;

   end.

   Bình luận