Viết chương trình nhập số nguyên a,b,c kiểm tra xem tổng của 3 số (a+b+c) là số chẳn hay số lẻ (a,b,c Được nhập từ bàn phiếm

uses crt;

var a,b,c,S:integer;

begin

write('nhap a:');readln(a);

write('nhap b:');readln(b);

write('nhap c:');readln(c);

S:=a+b+c;

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

readln;

end.

uses crt;

var a,b,c: Integer;

     tong: Real;

begin

clrscr;

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

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

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

tong:=a+b+c;

if tong mod2=0 then writeln('Tong 3 so a,b,c la so chan')b

else writeln('Tong 3 so a,b,c la so le);

readln

end.