Question

Nhập vào 3 số nguyên bất kì. Tính tổng của các số chẵn, tổng các số lẽ.

Answer 1

uses crt;

var a,b,c,t,t1:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

t:=0;

t1:=0;

if a mod 2=0 then t:=t+a

else t1:=t1+a;

if b mod 2=0 then t:=t+b

else t1:=t1+b;

if c mod 2=0 then t:=t+c

else t1:=t1+c;

writeln('Tong cac so chan la: ',t);

writeln('Tong cac so le la: ',t1);

readln;

end.