Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.