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.

Answer 2

Программа на Паскаль для проверки высказываний

Вот пример программы на языке Паскаль, которая проверяет два высказывания и выводит `true`, если они истинны, и `false`, если они ложны:

program CheckStatements;

var
  x, a, b, c: integer;
  sum: integer;
  isEvenSum: boolean;
  isEquilateral: boolean;

begin
  // Проверка высказывания а)
  write('Введите трехзначное число x: ');
  readln(x);

sum := (x div 100) + ((x div 10) mod 10) + (x mod 10);
  isEvenSum := (sum mod 2 = 0);

writeln('Высказывание а) Сумма цифр трехзначного числа х является четным числом: ', isEvenSum);

// Проверка высказывания б)
  write('Введите стороны треугольника a, b, c: ');
  readln(a, b, c);

isEquilateral := (a = b) and (b = c);

writeln('Высказывание б) Треугольник со сторонами a, b, c является равносторонним: ', isEquilateral);

end.

В этой программе мы используем переменные `x`, `a`, `b`, `c` для хранения введенных значений и промежуточных вычислений. Переменная `sum` используется для хранения суммы цифр трехзначного числа `x`, а переменные `isEvenSum` и `isEquilateral` - для хранения результатов проверок высказываний.

Программа сначала запрашивает у пользователя трехзначное число `x` и вычисляет сумму его цифр. Затем она проверяет, является ли эта сумма четным числом, и сохраняет результат в переменную `isEvenSum`. После этого программа запрашивает у пользователя стороны треугольника `a`, `b`, `c` и проверяет, равносторонний ли он, сохраняя результат в переменную `isEquilateral`. Наконец, программа выводит результаты проверок на экран.

Примечание: Убедитесь, что ваша среда разработки поддерживает язык Паскаль и может скомпилировать и запустить эту программу.