в Паскале составить программу печатающую значение true, если указанное высказывание является истинным, и false в противном случае 1) сумма двух первых цифр заданного…

Чтобы составить программу на языке Паскаль, которая будет печатать true, если сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр, и false в противном случае, мы можем следовать следующим шагам:

1. Вводим четырехзначное число.
2. Извлекаем цифры числа.
3. Считаем суммы двух первых и двух последних цифр.
4. Сравниваем эти суммы и выводим результат.

Вот пример программы на Паскале:

program CheckSum;
var
  number: integer;
  firstDigit1, firstDigit2, lastDigit1, lastDigit2: integer;
  sumFirst, sumLast: integer;
begin
  writeln('Введите четырехзначное число:');
  readln(number);
  
  // Проверяем, является ли число четырехзначным
  if (number < 1000) or (number > 9999) then
  begin
    writeln('Ошибка: число должно быть четырехзначным.');
    exit;
  end;

  // Извлекаем цифры
  firstDigit1 := number div 1000;       // Первая цифра
  firstDigit2 := (number div 100) mod 10; // Вторая цифра
  lastDigit1 := (number div 10) mod 10;   // Третья цифра
  lastDigit2 := number mod 10;            // Четвертая цифра

  // Считаем суммы
  sumFirst := firstDigit1 + firstDigit2;
  sumLast := lastDigit1 + lastDigit2;

  // Сравниваем суммы и выводим результат
  if sumFirst = sumLast then
    writeln('true')
  else
    writeln('false');
end.

Объяснение программы:

1. Ввод числа: Программа запрашивает у пользователя ввод четырехзначного числа.
2. Проверка числа: Проверяется, является ли введенное число действительно четырехзначным. Если нет, программа выводит сообщение об ошибке.
3. Извлечение цифр: Используя деление и остатки от деления, программа получает каждую цифру числа.
4. Суммирование: Считаются суммы первых и последних двух цифр.
5. Сравнение: Сравниваются полученные суммы, и в зависимости от результата выводится true или false.

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