66

Дано четырехзначное число. Проверить, является ли оно «счастливым билетом».…

27 марта 2023

Дано четырехзначное число. Проверить, является ли оно «счастливым билетом». Примечание: счастливым билетом называется число, в котором: а) при четномколичестве цифр в числе сумма цифр его левой половины равна сумме цифр его правой половины; б) при нечетном количестве цифр – то же самое, но с отбрасыванием серединной цифры. Например, рассмотрим число 1322. Его левая половина равна 13, а правая – 22, и оно является счастливым билетом (т.к. 1+3=2+2). Аналогично: 1735 (1+7=3+5) , 1111 (1+1=1+1) и т.д.

категория: информатика

82

Var a: array [1… 4] of integer; i,n: integer; beginwriteln ('Введите номер билета'); readln (n); for i: =1 to 4 do begina[i]: =n mod 10; n: =n div 10; end; if a[1]+a[2]=a[3]+a[4] then writeln ('Билет является счастливым') else writeln ('Билет не является счастливым'); end.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...