Viết chương trình tính s=1+3+5+…N với N là số tự nhiên nhập từ bàn phím

0 bình luận về “Viết chương trình tính s=1+3+5+…N với N là số tự nhiên nhập từ bàn phím”

1. Var s,n,i : integer;

   Begin

   Writeln(‘nhap n=’);read (n);

   S:=0;

   i:=1;

   While i<n do begin

   S:= s+i;

    i:= i+1;

   End;

   Writeln(s);

   Real

   End.

   Bình luận

2. program ct;

   uses crt;

   var s,i,n:integer;

   begin

   clrscr;

      write(‘nhap n:=’);readln(n);

        s:=0;

          for i:=1 to n do

               if i mod 2=1 then s:=s+i;

           writeln(‘tong la:’,s);

   readln

   end.

   Bình luận