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

Чтобы составить программу на языке Паскаль, которая будет печатать `true`, если сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр, и `false` в противном случае, мы можем следовать следующим шагам: 1. Вводим четырехзначное число. 2. Извлекаем цифры числа. 3. Считаем суммы двух первых и двух последних цифр. 4. Сравниваем эти суммы и выводим результат. Вот пример программы на Паскале: ```pascal 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`. Эта программа показывает, как можно работать с числами и условиями в Паскале. Вы можете запустить ее, внеся свои числа, и увидеть, как работает логика.