Question

Viết chương trình nhập vào 2 số nguyên a và b. Tính tổng của hai số đó. Tổng đó
là số chẵn hay số lẻ?

Answer 1

var a,b,i,tong:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
tong:=a+b;
writeln(' Tong la: ',tong);
if (tong mod 2=0) then writeln(' Tong la so chan ')
else write(' Tong la so le: ');
readln;
end.

Answer 2

uses crt;

var t,a,b:integer;

begin

clrscr;

readln(a,b);

t:=a+b;

if (t mod 2) = 0 then writeln('Tong la so chan')

else writeln('Tong la so le');

readln

end.