Viết chương trình nhập vào từ bàn phím số nguyên dương n. Nếu nhập n không đúng yêu cầu đề bài thì phải nhập lại cho đến khi đúng. Sau đó tính và đưa ra màn hình tổng S = 1 + 2 + 3 + … + n
2 câu trả lời
uses crt;
var n: longint;
begin
clrscr;
repeat
readln(n);
if n < 0 then writeln('Nhap lai')
else writeln(n * (n + 1) div 2);
until n > 0;
readln;
end.
uses crt;
var n,i,s:longint;
begin
clrscr;
repeat
write('Nhap n:');readln(n);
until n>0;
// Vong` lap
// for i:=1 to n do s:=s+i;
// Toan
s:=n*(n+1)div 2;
writeln(s);
readln;
end.
