Дз 9. Функции 3

Дз 9. Функции 3.

1. Доделать белку (получить число) и бином Ньютона.

2. Написать функцию Has2(a,digit), которая возвращает True/False (тип Boolean), проверяя есть ли в числе a цифра digit. Например, Has2(3271,7) -True, а Has2(71,5) -False. Используя функцию, проверить, сколько элементов в массиве случайных чисел из 10 элементов содержат цифру 0? А также сколько элементов содержат цифру, совпадающую с номером элемента?

3. Написать функцию Euclid(a,b) – нахождение НОД(a,b), воспользовавшись одним из двух алгоритмов Евклида. Далее, вызывая функцию, найти значение НОД среди всех элементов массива из 5 элементов в диапазоне [1,100]. Наибольший общий делитель нескольких чисел a1, a2, …, ak равен числу dk, которое находится при последовательном вычислении НОД(a1, a2)=d2, НОД(d2, a3)=d3, НОД(d3, a4)=d4, …, НОД(dk-1, ak)=dk.

4. При каком наименьшем значении входной переменной k программа выдаёт тот же ответ, что и при входном значении k=64? 21-73

var k, i : longint;

function f(n: longint) : longint;

begin

f := n * n - 20

end;

begin

readln(k);

i := 12;

while (i0) and (f(i) = k) do

i := i-1;

writeln(i)

end.

1. Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 18. 21-80

var k, i : longint;

function f(n: longint): longint;

begin

f := n * n;

end;

function g(n: longint): longint;

begin

g := 2*n + 5;

end;

begin

readln(k);

i := 1;

while f(i)