Question

Hãy viết chương trình Pascal có sử dụng câu lệnh lặp 

Yêu cầu: 

hãy nhập vào từ bàn phím 6 số tự nhiên đầu tiên

hãy in ra màn hình các số chẵn trong 6 số tự nhiên trên

Answer 1

uses crt;

var a,t,i:integer;

begin

clrscr;

t:=0;

for i:=1 to 6 do 

  begin

readln(a);

if (a mod 2=0) then t:=t+a;

end;

writeln(t);

readln;

end.