Question

ПАСКАЛЬ: Найти все четырехзначные числа у которых сумма крайних цифр равна сумме средних цифр.

Answer 1

Банальный вариант

var i:integer;
begin
for i:=1000 to 9999 do
if i mod 10 + i div 1000 = i div 100 mod 10 + i div 10 mod 10
then writeln(i)
end. 

Answer 2

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

pascalCopy code
program FourDigitNumbers;

var
  number, thousands, hundreds, tens, units: integer;

begin
  for number := 1000 to 9999 do
  begin
    thousands := number div 1000;
    hundreds := (number mod 1000) div 100;
    tens := (number mod 100) div 10;
    units := number mod 10;
    
    if (thousands + units) = (hundreds + tens) then
      writeln(number);
  end;
end.

В данном примере мы перебираем все четырехзначные числа от 1000 до 9999. Для каждого числа мы разделяем его на отдельные цифры, используя операции деления и остатка от деления. Затем мы сравниваем сумму крайних цифр (тысяч и единиц) с суммой средних цифр (сотен и десятков). Если эти суммы равны, то выводим число на экран.

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