Question

Решение должно корректно работать в PascalABC.NET, версии не выше 2.2 Определить, равна ли сумма первых двух цифр натурального числа сумме последних двух цифр.

Answer 1

Var
n: integer;
s1, s2: integer;
begin
readln(n);
s1 := n mod 10 + n div 10 mod 10;
while n>99 do
n:=n div 10;
s2 := n mod 10 + n div 10 mod 10;
if s1 = s2 then
writeln('Равна')
else
writeln('Не равна');
end.

Answer 2

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
var
  i,n,n1,e,s1,s2:integer;
  s:string;
begin
  Write('Введите натуральное число: '); Read(n);
  Str(n,s); Val(Copy(s,1,2),n1,e);
  s1:=(n1 div 10)+(n1 mod 10);
  s2:=(n mod 10)+((n mod 100) div 10);
  if s1=s2 then Writeln('Суммы равны')
  else Writeln('Суммы не равны')
end.

Тестовое решение:
Введите натуральное число: 250370
Суммы равны