Найти счастливый билет - 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 класса.Как можно легче решить ее.

Решение задачи: «Найти счастливый билет»

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.

Объяснение кода листинга программы

  1. Введенное с клавиатуры число сохраняется в переменной a типа longint.
  2. Выполняется проверка условия, если результат вычисления соответствует определенному шаблону (набор цифр, которые повторяются в определенном порядке), то выводится сообщение Билет счастливый!.
  3. Если условие не выполняется, то выводится сообщение Билет НЕ счастливый!.

Оцени полезность:

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