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. 24/08/2021 Bởi Margaret 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.
var n,i,s:longint;beginwrite(‘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 Bình luận
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); readlnend. Bình luận
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.