Question

Составьте программу, вводящую true, если высказывание является истинным, и false в противном случае:
а) сумма цифр трёхзначного числа х является чётным числом;
б) треугольник со сторонами a, b, c является разносторонним.
Помогите пожалуйста))) СОСТАВЬТЕ ПРОГРАММУ В ПАСКАЛЕ ​

Answer 1

a)

var

a, sum, i : integer;

begin

readln(a);

sum:=0;

while a > 0 do begin

sum:= sum + (a mod 10);

a:= a div 10;

end;

writeln((sum mod 2) = 0);

end.

б)

var

a, b, c: integer;

res: boolean;

begin

readln(a, b, c);

res := (a <> b) and (a <> c) and (b <> c);

writeln(res);

end.