Дано четырехзначное число. Определить, равна ли сумма первых двух его цифр сумме двух его последних цифр. В Паскале.

Как это решается: разбиваем число на цифры через div/mod и сравниваем сумму первых двух с суммой последних двух.

Вариант на Паскале (FreePascal/Turbo Pascal)

pascal
Копировать код
program SumCompare;
var
  n: integer;
  a, b, c, d: integer;
begin
  readln(n);                 { предполагается, что n — четырёхзначное число }
  if (abs(n) < 1000) or (abs(n) > 9999) then
  begin
    writeln('Ошибка: нужно четырёхзначное число');
    halt(0);
  end;
  n := abs(n);               { на случай отрицательного ввода }
  a := n div 1000;           { первая цифра }
  b := (n div 100) mod 10;   { вторая цифра }
  c := (n div 10) mod 10;    { третья цифра }
  d := n mod 10;             { четвертая цифра }
  if (a + b) = (c + d) then
    writeln('YES')           { суммы равны }
  else
    writeln('NO');           { суммы не равны }
end.

Пример

• Ввод: 5627 → первые две: 5+6=11, последние: 2+7=9 → вывод: NO.

• Ввод: 3416 → 3+4=7 и 1+6=7 → вывод: YES.