2) Tínhtổngcácsốlẻtừ1đếnnvớinlàsốnguyênđượcnhậptừbànphím

0 bình luận về “2) Tínhtổngcácsốlẻtừ1đếnnvớinlàsốnguyênđượcnhậptừbànphím”

1. uses crt;
   var i,n,S:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      if i mod 2 <> 0 then S:=S+i;
      write(‘Tong le la: ‘,S);
      readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var n,i,sum:longint;
   begin
           clrscr;
           write(‘Nhap 1 so bat ky: ‘); readln(n);
           sum:=0;
           for i:=1 to n do
                   if i mod 2=1 then
                           sum:=sum+i;
           writeln(‘Tong so le tu 1 den ‘,n,’: ‘,sum);
           readln;
   end.

   Bình luận