Viết chương trình tính tổng N số tự nhiên đầu tiên với N là số tự nhiên nhập từ bàn phím sử dụng câu lênh for.. Do
2 câu trả lời
Program BTH;
Uses crt;
var a,b,c:longint;
Begin
clrscr;
Write('Nhap n: ');readln(a);
For b:=1 to a do
c:=c+b;
writeln('Tong day so tren la: ',c);
readln;
end.
Program Hotboy;
Uses crt;
Var i,n,s : integer;
Begin
Clrscr;
S:=0;
Write('nhap so tu nhien n'); readln(n);
For i:= 1 to n do
i:=i+1;
S:=s+i ;
Write('tong cac so tu 1 den n la',S);
Readln
End.