Составьте программу в Паскаль, вводящую true, если высказывание является истинным, и...

Question

Составьте программу в Паскаль, вводящую true, если высказывание является истинным, и false в противном случае.

а) Сумма цифр трёхзначного числа х является чётным числом.

б) Треугольник со сторонами a, b, с являются равносторонним.

Answer 1

uses crt;

var a,b,c,n,n1:integer;
begin

readln(n);
n1:=(n div 100)+((n div 10) mod 10)+(n mod 10);
if (n1 mod 2 = 0) then write('true'); 

if (n1 mod 2 = 1) then write('false'); 
readln(a,b,c);
if (a=b) and (a=c) and (b=c) then write('true')
else write('false')
end.