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