Question

Hãy nêu thuật toánvà viết chương trình cho bài toán tính tổng các số tự nhiên chẵn từ 0 đến n , với n nhập vào từ bàn phím.

Answer 1

Bước 1: Nhập n

Bước 2: i←0; t←0;

Bước 3: nếu i mod 2=0 thì t←t+i;

Bước 4: i:=i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: xuất t

Bước 7: Kết thúc

Answer 2

Thuật toán:

B1: Nhập N

B2: Tổng = 0 , i = 0

B3: i = i + 1

B4: Nếu i chia hết cho 2 thì Tổng = Tổng + i

B5: Nếu i = n thì chuyển đến B6

Ngược lại chuyển đến B3

B6: In ra Tổng và kết thúc

Chương trình:

uses crt;
var n,i:integer;
tong: longint;
begin
clrscr; tong:= 0;
write('Nhap N: ');readln(n);
for i:= 1 to n do
if i mod 2 = 0 then tong:= tong + i;
write('Tong cac so tu nhien chan tu 0 den ',n,' la: ',tong);
readln
end.