Viết chương trình tính 1+1+1+-+1 (n số hạng)

Ý tưởng:

C1: Chạy 1 vòng for từ 1 đến n rồi tăng tổng lên 1;

C2. Xuất n ra là xong vì 1+1…+1 n số hạng thì sẽ bằng n.

Nhiều điểm nên mình sẽ làm cả 2 cách, thây hay thì cho CTLHN nhé.

C1:

uses crt;
var n,i,s:longint;
begin
clrscr;
   write(‘n=’);readln(n);
   for i:=1 to n do s:=s+1;
   writeln(s);
readln
end.

C2.

uses crt;
var n:longint;
begin
clrscr;
   write(‘n=’);readln(n);
   writeln(n);
readln
end.