Question

: Viết chương trình Pascal sử dụng lệnh lặp While..Do tính tổng các số chẵn của số tự nhiên N (100<n<32000) với N được nhập từ bàn phím. Vẽ sơ đồ biểu diễn hoạt động của chương trình trên.

Ví dụ:

Input:           Output:

123                 2

6616              18

10246            12 

Answer 1

uses crt;

var n,i,t,x:integer;

begin

clrscr;

readln(n);

t:=0;

while n>0 do 

begin

x:=n mod 10;

if x mod 2=0 then t:=t+x;

n:=n div 10;

end;

writeln(t);

readln;

end.