Tin học nhà mọi người giúp e với??? Viết phương trình tính tổng của 50 số tự nhiên đầu tiên

2 câu trả lời

Bước 1: Nhập N ( nhập N=50)

Bước 2: i <= 0, S <= 0

Bước 3: i <= i + 1

Bước 4: 4.1 nếu i > N thì kết thúc thuật toán và thông báo kết quả

4.2 S <= S + i rồi quay lại bước 3

Program Hotboy ;

uses crt;

Var i,s : integer;

Begin

Clrscr;

S:=0;

For i:=1 to 50 do

S:=S+i; i:=i+1 ;

Write('tong 50 so dau tien la. ',S);

Readln

End.