Nhập vào giá trị n (n>2) . Tính tổng các giá trị chẵn trong phạm vi từ 2 đến n Sử dụng câu lệnh while-do

uses crt;
var n, i, s : integer;
begin
clrscr;
write(' nhap so n :'); readln(n );
i := 2;
s := 0;
while (i <= n) do
begin
if i mod 2 =  0 then s := s + i;
i := i + 1;
end;
writeln(' tong so chan tu 2 den ', n ,' la :', s );
readln
end.

$#QLinkVN$

Cấu trúc chương trình cụ thể như sau:

program chan_le;
uses crt;
var i,n,tong: integer;
begin
clrscr;
writeln('Nhap gia tri cuoi n: '); readln(n);
i:=2; tong:=0;
while i<=n do
begin
if (i mod 2=0) then tong:=tong+i;
i:=i+1;
end;
writeln('Tong cua day so chan tren la: ',tong);
readln;
end.

Giả sử khi nhập giá trị "n" là 10 thì theo cách tính bình thường thì ta có: "2+4+6+8+10=30"

Khi nhập vào giá trị "n" là 10 thì kết quả của chương trình cũng cho ra đáp án tương tự. (xem hình)