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