Question

С клавиатуры вводится целое шестизначное число. Необходимо определить, является ли оно "счастливым". ("Счастливыми" называются те числа, у которых сумма перых трёх цифр равна сумме вторых трёх цифр).

Answer 1

var
s:string;
begin
readln(s);
if length(s)<>6 then
write('Введите 6-ти значное число') else
if (strtoint(s[1])+strtoint(s[2])+strtoint(s[3])=
strtoint(s[4])+strtoint(s[5])+strtoint(s[6])) then
write('Билет счастливый') else
write('Билет счастливый');
end.