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