PROGRAM PG9_5;

VAR I, J: INTEGER;

FUNCTION MAX(I, J: INTEGER): INTEGER;

BEGIN

IF I>J THEN MAX:= I

ELSE MAX:= J

END;

BEGIN

WRITELN('BBEДИTE ДВА ЦЕЛЫХ ЧИСЛА');

READLN(I, J);

WRITELN('MAX = ', MAX(I, J))

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- создаем описание функции МАХ;

- вводим два целых числа I и J;

- вызываем функцию МАХ и определяем наибольшее число;

- завершаем работу программы.

Переменные:

в функции МАХ:

I, J - два целых числа (глобальные переменные);

в основной программе:

I, J - два целых числа (глобальные переменные).

Задача 9.6 Написать функцию, которая находит сумму цифр целого числа,

PROGRAM PG9_6;

VAR N: LONGINT;

К: INTEGER;

FUNCTION NUM(I: LONGINT): INTEGER;

VAR S: INTEGER;

BEGIN

S:= 0;

REPEAT

S:= S+N MOD 10;

N:= N DIV 10

UNTIL N = 0;

NUM:=S

END;

BEGIN

WRITE('BBEДИTE ЦЕЛОЕ ЧИСЛО N =');

READLN(N);

K:=NUM(N);

WRITELN('CУMMA ЕГО ЦИФР РАВНА', К)

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- создаем описание функции NUM;

- вводим целое число N;

- вызываем функцию NUM и определяем сумму цифр числа N;

- завершаем работу программы.

Переменные:

в функции NUM:

N - целое число (глобальная переменная);

S - вспомогательная переменная (локальная переменная);

в основной программе:

N - целое число (глобальная переменная);

К - вспомогательная переменная (глобальная переменная).

Задача 9.7 Написать функцию, которая находит цифровой корень целого числа.

Цифровой корень находится суммой через сумму цифр числа До тех пор, пока эта сумма сама не станет цифрой. Например, для числа 9999999 цифровой корень находится так:

9 + 9 + 9 + 9 + 9 + 9 + 9 = 63

6 + 3 = 9

Цифровой корень 9999999 равен девяти.