Ý 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.
