Автобусный билет имеет номер из четырёх цифр. Билет считают счастливым, если сумма двух первых цифр билета равна сумме двух последних цифр. Требуется составить программу определения билета, имеющего счастливый номер на div и

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

program biletik;

var  

a: array [1..6] of integer;

i,b: integer;

begin

writeln('Введите номер билетика');

readln(b);

if (b<1000000) and (b>99999)   then

begin

for i:=1 to 6 do

begin

a[i]:=b mod 10;

b:=b div 10;

end;

if (a[1]+a[2]+a[3]=a[4]+a[5]+a[6]) then

writeln('Билетик счастливый')

else

writeln('Билетик несчастливый');

end

else writeln('Номер должен быть шестизначным');

end.

Объяснение: