viết phương trình tính tổng các số từ 1 đến n, vs n nhập từ bàn phím ? ( sử sụng while....do )
2 câu trả lời
Program Hotboy
Uses crt;
Var s,i,n : longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0; i:=1;
While i<=n do
Begin
s:=s+i; i:=i+1;
End;
Writeln('tong tu 1 den n la',S);
Readln
End.
Program name
Uses crt;
Var s,i,n : longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0; i:=1;
While i<=n do
Begin
s:=s+i; i:=i+1;
End;
Writeln('tong tu 1 den n la',S);
Readln
End.
Câu hỏi trong lớp
Xem thêm