Question

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

Answer 1

1.
Var
  a:integer;
Begin
  Write('Введите число ');
  Readln(a);
  if (((a mod 10) + (a div 10 mod 10) + (a div 100)) mod 2) = 0 then write('True') else write('False');
End.
2.
Var
  a,b,c:integer;
Begin
  Write('Введите стороны треугольника ');
  Readln(a,b,c);
  if (a=b) or (a=c) or (b=c) then write('False') else write('True');
End.