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.