Question

1.Составить функцию которая определяет верно ли что в числе вторая цифра с конца больше 6 2.Составить функцию которая определить верно ли что переданное число простое
на языке паскаль

Answer 1

1. Функция для определения, верно ли, что в числе вторая цифра с конца больше 6:

```
function CheckSecondDigit(num: integer): boolean;
begin
// Преобразуем число в строку
var numStr := num.ToString();

// Проверяем, что в числе достаточно цифр
if numStr.Length < 2 then
begin
Result := false;
Exit;
end;

// Получаем вторую цифру с конца
var secondDigit := StrToInt(numStr[numStr.Length - 1]);

// Проверяем, что она больше 6
Result := (secondDigit > 6);
end;
```

Обоснование:
Мы начинаем с преобразования числа в строку, чтобы иметь доступ к отдельным цифрам. Затем мы проверяем, что в числе достаточно цифр (необходимо как минимум две цифры, чтобы определить вторую цифру с конца). Если требование не выполняется, функция возвращает false.
Далее мы получаем вторую цифру с конца, используя индексацию строки. Затем мы сравниваем эту цифру с 6 и возвращаем true, если она больше 6, в противном случае возвращаем false.

2. Функция для определения, верно ли, что переданное число простое:

```
function IsPrime(num: integer): boolean;
var
i: integer;
begin
Result := true;

// Проверяем числа от 2 до корня из переданного числа
for i := 2 to Round(Sqrt(num)) do
begin
// Если число делится без остатка, оно не простое
if num mod i = 0 then
begin
Result := false;
Exit;
end;
end;

// Если все проверки прошли, число простое
end;
```

Обоснование:
Мы используем цикл, который перебирает числа от 2 до корня из переданного числа. Для каждого числа мы проверяем, делится ли переданное число на это число без остатка. Если да, мы сразу можем сделать вывод, что число не является простым и возвращаем false.
Если после завершения цикла все проверки не нашли делителей без остатка, число считается простым и возвращается true.