The author posted a question in Programming
Among the given integers a b c d, there are at least two even numbers. Make in Pascal ABC + add val? and got a better answer
Response from
Response from 0[+++++]
readln a,b,c,d ; writeln a or 2 * b or 2 * c or 2 * d or 2 mod 4= 0 ;
readln a,b,c,d ; writeln a or 2 * b or 2 * c or 2 * d or 2 mod 4= 0 ;
Response from 0[+++++]
var a, b, c, d: integer; begin readln a,b,c,d ; writeln ord a mod 2= 0 + ord b mod 2= 0 + ord c mod 2= 0 + ord d mod 2= 0 >=2 ; end.
var a, b, c, d: integer; begin readln a,b,c,d ; writeln ord a mod 2= 0 + ord b mod 2= 0 + ord c mod 2= 0 + ord d mod 2= 0 >=2 ; end.