viết chương trình tính tổng các số lẻ từ 1…49 giúp mình với

0 bình luận về “viết chương trình tính tổng các số lẻ từ 1…49 giúp mình với”

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

   Bình luận