Question

Составьте программу, вводящую true, если высказывание является истинным, и false в противном случае:
а) сумма цифр трёхзначного числа х является чётным числом;
б) треугольник со сторонами a, b, c является разносторонним.
Помогите пожалуйста

Answer 1

{a}

var x: integer;
begin
 read(x);
 write( (x mod 10 + x div 10 mod 10 + x div 100) mod 2 = 0 )
end.


{b}

var a,b,c: integer;
begin
 read(a,b,c);
 write( (a <> b) and (b <> c) and (a <> c) )
end.