Viết chương trình tính tổng S=2+4+6+…+n, với 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+…+n, với n nhập từ bàn phím”

1. uses crt;
   var n,i,s:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do s:=s+2*i;
      write(‘Tong la: ‘,s);
      readln
   end.

   Bình luận

2. program tinh_tong;

   uses crt;

   var j,k,i,n:integer;

   s:real;

   begin

   clrscr;

   repeat

   write(‘Nhap n=’);readln(n);

   if n>=1 then break;

   writeln(‘Hay nhap n>=1’);

   until false;

   s:=0;

   for i:=1 to n do

   s:=s+2*i;

   writeln(‘Tong: ‘,s:4:2);

   readln

   end.

   Bình luận