Viết chương trình : Tính tổng các số nguyên dương của N .Với N nhập từ bàn phím.
2 câu trả lời
var n,i,s:longint;
begin
write('nhap so n=');readln(n);
s:=0;
for i:=1 to do if >0 s:=s+i;
writeln(' tong n so nguyen la:',s);
readln;
end
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); read(n);
for i:=1 to n do if i>0 then inc(s,i);
writeln('Tong: ',s);
readln
end.
