Question

Вообщем так ребят. В паскале по информатике я нуб. Хоть и плюсы даются хорошо.  Помогите решить одну задачу, ну или хотя бы примерно объяснить.
Билет с 4-значным номером является счастливым, если сумма первых двух цифр равно сумме двух последних. Определить, является ли билет счастливым.
Спасибо^-^

Answer 1

Program pr;
uses crt;

Var a,x1,x2,x3,x4:integer;

Begin
Writeln('Введите номер билета');
readln(a);

x1:=a div 1000;
x2:=(a div 100) mod 10;
x3:=(a mod 100) div 10;
x4:=a mod 10;

if (x1+x2=x3+x4)
then Writeln('Билет счастливый')
else Writeln('Билет не счастливый');

readln;
end.