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

Предыдущий
вопрос Следующий
вопрос

program sumOfDigits;
function sumFirstTwoDigits(num: integer): integer;
var
sum, digit, counter: integer;
begin
sum := 0;
counter := 0;
while counter < 2 do
begin
digit := num mod 10;
sum := sum + digit;
num := num div 10;
counter := counter + 1;
end;
sumFirstTwoDigits := sum;
end;
function sumLastTwoDigits(num: integer): integer;
var
sum, digit, counter: integer;
begin
sum := 0;
counter := 0;
while counter < 2 do
begin
digit := num mod 10;
sum := sum + digit;
num := num div 10;
counter := counter + 1;
end;
sumLastTwoDigits := sum;
end;
var
n: integer;
begin
writeln('Enter a natural number: ');
readln(n);
if sumFirstTwoDigits(n) = sumLastTwoDigits(n) then
writeln('The sum of the first two digits is equal to the sum of the last two digits.')
else
writeln('The sum of the first two digits is not equal to the sum of the last two digits.');
end.

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