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

program CheckSum; var num, firstTwo, lastTwo: integer; begin write('Введите четырехзначное число: '); readln(num);

firstTwo := (num div 1000) + ((num div 100) mod 10); lastTwo := ((num div 10) mod 10) + (num mod 10);

if firstTwo = lastTwo then

writeln('TRUE')

else

writeln('FALSE');

end.

program CheckSumOfDigits;

var number, digit1, digit2, digit3, digit4: integer; sumFirstDigits, sumLastDigits: integer;

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

digit1 := number div 1000; digit2 := (number div 100) mod 10; digit3 := (number div 10) mod 10; digit4 := number mod 10;

sumFirstDigits := digit1 + digit2; sumLastDigits := digit3 + digit4;

if sumFirstDigits = sumLastDigits then

writeln('TRUE')

else

writeln('FALSE');

end.

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

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

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

program CheckSumDigits;

var
  num: integer;
  firstTwoDigits, lastTwoDigits: integer;
  sumFirstTwo, sumLastTwo: integer;

begin
  writeln('Введите четырехзначное число:');
  readln(num);
  
  if (num < 1000) or (num > 9999) then
  begin
    writeln('Введите корректное четырехзначное число.');
    exit;
  end;
  
  // Извлечение первых двух цифр (тисячи и сотни)
  firstTwoDigits := num div 100;
  // Извлечение последних двух цифр (десятки и единицы)
  lastTwoDigits := num mod 100;

  // Сумма первых двух цифр
  sumFirstTwo := (firstTwoDigits div 10) + (firstTwoDigits mod 10);
  // Сумма последних двух цифр
  sumLastTwo := (lastTwoDigits div 10) + (lastTwoDigits mod 10);

  // Сравнение и вывод результата
  if sumFirstTwo = sumLastTwo then
    writeln('TRUE')
  else
    writeln('FALSE');
end.

Пояснение программы:

1. Ввод числа: Программа запрашивает у пользователя ввод четырехзначного числа и сохраняет его в переменной num.

2. Проверка корректности ввода: Программа проверяет, является ли введенное число четырехзначным. Если нет, выводится сообщение об ошибке и программа завершает выполнение.

3. Извлечение цифр:

   • Переменная firstTwoDigits получает значение первых двух цифр числа, используя операцию целочисленного деления на 100.
   • Переменная lastTwoDigits получает значение последних двух цифр числа, используя операцию получения остатка от деления на 100.

4. Вычисление сумм:

   • sumFirstTwo вычисляется как сумма тысяч и сотен.
   • sumLastTwo вычисляется как сумма десятков и единиц.

5. Сравнение сумм: Программа сравнивает суммы первых двух и последних двух цифр и выводит TRUE, если они равны, и FALSE в противном случае.

Эта программа корректно работает для всех четырехзначных чисел и предоставляет точный результат, соответствующий условию задачи.