Viết chương trình pascal tính: A=1+3+5+7+…+N

0 bình luận về “Viết chương trình pascal tính: A=1+3+5+7+…+N”

1. Program chuongtrinh;

   uses crt;

   var i, n, s:integer;

   begin

   clrscr;

   write(‘nhap vao so nguyen n= ‘); readln(n);

   s:=0;

   for i:=1 to n do of o mod 2=1 then s:=s+i;

   writeln(‘tong cac so le la’,s);

   readln;

   end.

   Bình luận

2. uses crt;
   var i,a,n:longint; 
   begin
   clrscr;
      write(‘N=’);readln(n);
      i:=-1;
      repeat  
         inc(i,2);
         inc(a,i); 
      until i+2>n;
      writeln(‘A= ‘,a);
   readln
   end.

   Bình luận