Задать вопрос
30 июня, 03:00

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

+2
Ответы (1)
  1. 30 июня, 06:35
    0
    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 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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Трамвайный билет имеет шестизначный номер (от 100000 до 999999). Выяснить, является ли билет "счастливым". Билет назовем "счастливым", если ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике