viết chương trình tính tổng S=2+4+6+8+…+n (với số n nhập từ bàn phím

0 bình luận về “viết chương trình tính tổng S=2+4+6+8+…+n (với số n nhập từ bàn phím”

1. program oken;
   uses crt;
   var n,s,i: longint;
   begin
       clrscr;
       write(‘Nhap 1 so: ‘); readln(n);
       for i:=1 to n do
           if (i mod 2=0) then 
               s:=s+i;
       writeln(‘Tong S: ‘,s);
       readln;
   end.

   Bình luận

2. uses crt;

   var n.i:integer;

   s:longint;

   begin clrscr;

   write(‘nhap so n=’);

   readln(n);

   s:=0; i:=2;

   while i<=n do begin s:=s+i; i:=i+2; end;

   write(‘tong s=’, s);

   readln

   end.

   Bình luận