Решение должно корректно работать в PascalABC.NET, версии не выше 2.2 Определить, равна...

Question

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

Answer 1

// 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
Суммы равны

Comments

"Решение должно корректно работать в PascalABC.NET, версии не выше 2.2" :)

---

Хотя оно и так будет работать)

---

Да. И оно будет там работать. Оно будет работать корректно даже в версии Pascal ABC

---

Но у меня привычка писать версию, в которой делалось решение.

---

Да да, уже посмотрел, однострочный комментарий смутил просто)

---

Спасибо всем вам!

Answer 2

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.