Будем считать, что номера билетов принадлежат промежутку

[100000; 999999].

Составить программу определения счастливого билета.

Решение

Program Problem7; { Счастливые автобусные билеты }

uses WinCrt;

var

i: longint;

{----------------------------------------------------------------------------------------}

Procedure sum_number(p: longint; var s: longint);

begin

s: = 0;

while p < > 0 do

begin

s: = s + p mod 10;

p: = p div 10

end

end;

{----------------------------------------------------------------------------------------}

Procedure happiness(x: longint);

var

l, r: longint;

begin

sum_number(x mod 1000, l);

sum_number(x div 1000, r);

if l = r then write(x, ' ')

end;

{---------------------------------------------------------------------------------------}

begin

writeln('Счастливые автобусные билеты');

for i: = 100000 to 999999 do happiness(i);

writeln

end.

Задача 8. Последовательность (a_n) задается так: - сумма цифр квадрата числа плюс 1. Постройте эту последовательность и найдите

Решение

При построение членов последовательности нам придется находить сумму цифр числа. Поэтому есть смысл составить функцию, которая определяет сумму цифр числа. Вторая функция - это функция, с помощью которой можно получить любой член последовательности:

Program Succession; { succession - последовательность }

uses WinCrt;

var

a, i, n: integer;

{----------------------------------------------------------------------------------------}

Function Sum(a: integer): integer;

var

s: integer;

begin

s: =0;

repeat

s: = s + a mod 10;

a: = a div 10

until a = 0;

Sum: = s

end;

{----------------------------------------------------------------------------------------}

Function Succ(n: integer): integer;

var

a, i: integer;

begin

a: = 7;

for i: = 2 to n do a: = Sum(a*a) + 1;

Succ: = a

end;

{----------------------------------------------------------------------------------------}

begin

write('Введите число членов последовательности ');

readln(n);

for i: = 1 to n do write(Succ(i), ' ');

writeln

end.

Задача 9. В классе 12 учебных предметов. В день проводится 5 разных уроков. Сколькими способами может быть составлено расписание занятий.