viết chương trình nhập vào 2 số nguyên a , b kiểm tra xem tích của hai số đó là số chẵn hay số lẻ

program KT_Chan_Le;

uses crt;

var a,b,tich:integer;

begin 

clrscr;

writeln('Nhap so a');readln(a);

writeln('Nhap so b');readln(b);

tich:=a*b;

if (tich mod 2=0) then writeln('Tich la so chan') else writeln('Tich la so le');

readln

end.

CHO MIK CTLHN NHA BẠN!!!

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program chanle;
uses crt;
var a,b,tich: integer;
begin
         clrscr;
         writeln('Nhap gia tri a: '); readln(a);
         writeln('Nhap gia tri b: '); readln(b);
         tich:=a*b;
         if (tich mod 2 = 0) then writeln('Tich cua 2 so ',a,' va '.b,' la so chan') else
                                              writeln('Tich cua 2 so ',a,' va '.b,' la so le');
         readln;
end.