Найти счастливый билет - PascalABC.NET

Формулировка задачи:

Вы пользуетесь общественным транспортом? Вероятно, вы расплачивались за проезд и получали билет с номером. Счастливым билетом называют такой билет с шестизначным номером, где сумма первых трех цифр равна сумме последних трех. Т.е. билет с номером 385916 – счастливый, т.к. 3+8+5=9+1+6. Вам требуется написать программу, которая проверяет счастливость билета. Входные данные В единственной строке входного файла INPUT.TXT записано одно целое число N (0 ≤ N < 106). Выходные данные В выходной файл OUTPUT.TXT нужно вывести «YES», если билет с номером N счастливый и «NO» в противном случае. Примеры № INPUT.TXT OUTPUT.TXT 1 385916 YES 2 123456 NO Для 8 класса.Как можно легче решить ее.

Код к задаче: «Найти счастливый билет - PascalABC.NET»

textual
var
  a: longint;
begin
  readln(a);
  if a div 100000+a div 10000 mod 10+a div 1000 mod 10=a div 100 mod 10+a div 10 mod 10+a mod 10 
  then writeln('Билет счастливый!')
  else writeln('Билет НЕ счастливый!');
end.

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ