Вообщем так ребят. В паскале по информатике я нуб. Хоть и плюсы даются хорошо. Помогите...

Question

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

Comments

все что помню так это то что там нужен какой то оператор для просмотра символа, тогда переменную которую вводим делаем с типом данным стринг, а цикл должен быть через while, хотя можно сделать с помощью остатка, остатка от деления, и снова циклим, крайне лень писать програиму, но если есть вопросы задавай

---

хихии. У меня сейчас мозги взорвутся. В том то и дело, что полазивши по форумам я у знала что надо делать с while. А мы этого не брали:D

---

Вообщем и с if можно сделать. Спасибо тебе;)

---

ладно тогда с остатком от деления, смысл такой число берем с остатком от деления на 10(и получаем самое правое число), затем делим на 10(тогда тип данный реал) и все это циклим, а там снова, но уже трехзначное делим с остатком на 10, результатом будет уже третье число справа и вот у нас два числа справа для сложения, снова делим на 10 и получается двухзначное число, и тд, внутри цикла складываем что нужно и сравниваем.....

---

все спасибо

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.