Трамвайный билет имеет шестизначный номер(от 100000 до 999999). Выяснить, является ли...

Question

Трамвайный билет имеет шестизначный номер(от 100000 до 999999). Выяснить, является ли билет "счастливым". Билет назовем "счастливым", если сумма первых трёх чисел равна сумме трёх других чисел. Через цикл whili, а также div mod

Answer 1

Program Task;
Var a: Array of Integer;
    n, b, c, i: Integer;
Begin
    Write('Введите номер билета: №');
    ReadLn(n);
    b := n;
    While b <> 0 Do
    Begin
        b := b Div 10;
        c := c + 1;
    End;
    If (c < 1) Or (c > 6) Then
        WriteLn('Неверный номер билета. Завершение программы.')
    Else
    Begin
        SetLength(a, c);
        b := n;
        For i := c - 1 DownTo 0 Do
        Begin
            a[i] := b Mod 10;
            b := b Div 10;
        End;
        If (a[0] + a[1] + a[2]) = (a[3] + a[4] + a[5]) Then
            WriteLn('Билет "счастливый"!')
        Else
            WriteLn('Не повезло');
    End;
    ReadLn;
End.