các bạn giúp mình với viết chương trình tính tổng của n số tự nhiên đầu tiên (sử dụng vòng lặp for) 21/08/2021 Bởi Serenity các bạn giúp mình với viết chương trình tính tổng của n số tự nhiên đầu tiên (sử dụng vòng lặp for)
var n,i,s:longint; begin write(‘Nhap n: ‘); readln(n); for i:=1 to n do s:=s+i; write(‘S = ‘,s); readln end. Bình luận
Program BTH;Uses Crt;var a,b,c:longint;Beginclrscr;write(‘Nhap so n: ‘);readln(a);For b:=1 to a doc:=c+b;write(‘Tong day so tren la: ‘,c);readln;End. Bình luận
var n,i,s:longint;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
s:=s+i;
write(‘S = ‘,s);
readln
end.
Program BTH;
Uses Crt;
var a,b,c:longint;
Begin
clrscr;
write(‘Nhap so n: ‘);readln(a);
For b:=1 to a do
c:=c+b;
write(‘Tong day so tren la: ‘,c);
readln;
End.