Question

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