Question

viết chương trình tính tổng của 50 số tự nhiên đầu tiên

Answer 1

var i,s:integer;

begin

s:=0;

for i:=1 to 50 do s:=s+i;

write('Tong:', s);

readln;

end.

Answer 2

Thuật toán :

Bước 1. Nhập N (bạn nhập N = 50)

Bước 2. \(i\leftarrow0\) , \(S\leftarrow0\)

Bước 3. \(i\leftarrow 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\leftarrow S+i\) rồi quay lại bước 3

Answer 3

program tinh_tong;

uses crt;

var i,n:integer;

S:longint;

begin

n:=50; S:=1;

for i:=1 to 50 do S:= S+i;

write(' tong cua ',n,' so tu nhien dau tien la ',S);

readln

end.