viết chương trình in ra màn hình tính tổng các số dương từ 1 đến n. với n là số nguyên được nhập vào từ bàn phím
Giúp em bài này với ạ, ai nhanh em sẽ vote 5 sao ạ
viết chương trình in ra màn hình tính tổng các số dương từ 1 đến n. với n là số nguyên được nhập vào từ bàn phím
Giúp em bài này với ạ, ai nhanh em sẽ vote 5 sao ạ
uses crt;
var i,n,s: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do s:=s+i;
writeln (‘tong la: ‘,s);
readln;
end.
program tong_duong;
uses crt;
var n,i,t:integer;
begin
clrscr;
write(‘Nhap so nguyen n: ‘); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
write(‘Tong cac so duong tu 1 den ‘,n,’ la: ‘,t);
readln;
end.