Bài 2: (5đ) Tính tổng. Viết chương trình nhập số nguyên dương n từ bàn phím. Tính các tổng sau: S1 = 1 + 2 – 3 + 4 + 5 – 6 + … + n. Ví dụ: Với n =

0 bình luận về “Bài 2: (5đ) Tính tổng. Viết chương trình nhập số nguyên dương n từ bàn phím. Tính các tổng sau: S1 = 1 + 2 – 3 + 4 + 5 – 6 + … + n. Ví dụ: Với n =”

1. program tinhtong;

   uses crt;

   var S1 ,  n :integer;

   Begin

   clrscr;

   writeln(‘ Nhap so n:’); readln(n);

   S1:=0;

   n:=1;

   While n>=0 do

   Begin 

   S1:=S1+n;

   n:=n+1;

   if (n mod 3 =0) then S1:=S1-(n+1);

   end;

   writeln(‘ Tong can tim la S1:’); readln(S1);

   readln;

   end.

   Ban tham khao nha!!

   Bình luận

2. Bài 1: mình làm theo free pascal nhé

   Uses crt;

   Var i,n,tong:integer;

   Begin

   CLRSCR;

   Writeln(‘Moi nhap n de tinh tong’) Readln(n);

   For i:=1 to n do

   tong:=tong+i;

   Writeln(‘Tong cua day tren la’,tong);

   Readln;

   End.

   Bình luận