Viết chương trình tính s = 3 + 6 + 9 + 12 + …+(3 n) với n là số nguyên dương được nhập từ bàn phím

0 bình luận về “Viết chương trình tính s = 3 + 6 + 9 + 12 + …+(3 n) với n là số nguyên dương được nhập từ bàn phím”

1. progam tinh_S;

   uses crt;

   var n,i:integer;

         S:longint;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          S:=0;

          for i:=1 to n do

                 S:=S+3*i;

          write(‘S= ‘,s);

          readln;

   end.

   Bình luận

2. uses crt;

   var i,n,s: longint;

   begin

   clrscr;

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

   for i:=1 to (3*n) do

   if i mod 3=0 then s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận