Viết chương trình in ra tổng các số chia hết 5 từ 1 đến 100

0 bình luận về “Viết chương trình in ra tổng các số chia hết 5 từ 1 đến 100”

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

   ${Oken}$

   Bình luận

2. Program Hotboy ;

   Uses crt;

   Var s,i : longint;

   Begin

   Clrscr ;

   S:=0;

   For i:=1 to 100 do

   If (i mod 5=0) then S:=S+i;

   Writeln(‘tong can tim la’,S);

   Readln

   End.

   Bình luận