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

Question

Информатика

Цвета

28 ноября, 12:49

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

+3

Ответы (1)

Знаете ответ на вопрос?

Снежана · Answer 1

Var a:array [1 ... 4] of integer; i, n:integer;

begin

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

readln (n) ;

for i:=1 to 4 do begin

a[i]: = n mod 10;

n: = n div 10;

end;

if a[1] + a[2] = a[3] + a[4] then writeln ('Билет является счастливым') else writeln ('Билет не является счастливым') ;

end.