Question

1.дан массив,найти первое трехзначное число в нем. 2. дан массив, найти последнее число принадлежащее интервалу от -10 до 20 и кратное 3. 3. дано натуральное число. определить четная ли его первая цифра. 4. даны три натуральных числа а,в,с. найти НОД(а,в)+ НОД(в,с)

Answer 1

Const
  n = 10;

var
  x: array[1..n] of integer;
  i: integer;
  flag: boolean;

begin
  Randomize;
  Write('Элементы массива: ');
  for i := 1 to n do
  begin
    x[i] := Random(10000);
    Write(x[i]:5)
  end;
  i := 1; flag := false;
  while (i <= n) and (not flag) do
  begin
    flag := (x[i] >= 99) and (x[i] <= 1000);
    if (not flag) then i := i + 1
  end;
  Writeln;
  if flag then Writeln('Найден элемент: ', x[i])
  else Writeln('Искомого числа нет')
end.

Тестовое решение:
Элементы массива:  4136 4921  244 1489 1714 5731 4187 7990 1974  113
Найден элемент: 244

const
  n = 13;

var
  x: array[1..n] of integer;
  i: integer;
  flag: boolean;

begin
  Randomize;
  Write('Элементы массива: ');
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4)
  end;
  i := n;
  flag := false;
  while (i > 0) and (not flag) do
  begin
    flag := (x[i] >= -10) and (x[i] <= 20) and (x[i] mod 3 = 0);
    if (not flag) then i := i - 1
  end;
  Writeln;
  if flag then Writeln('Найден элемент: ', x[i])
  else Writeln('Искомого числа нет')
end.

Тестовое решение:
Элементы массива:   21 -45 -12   9 -36  42 -49 -48  37  48 -43  26 -34
Найден элемент: 9

var
  n: longint;
  s: string;
  k, er: integer;

begin
  Write('Введите натуральное число-> '); Readln(n);
  Str(n, s);
  Val(s[1], k, er);
  if (k mod 2 = 0) then Writeln('Первая цифра числа четная')
  else Writeln('Первая цифра числа нечетная')
end.

Тестовое решение:
Введите натуральное число-> 36434523
Первая цифра числа нечетная

function NOD(a, b: integer): integer;
begin
  while a <> b do
    if a > b then a := a - b
    else b := b - a;
  NOD := a
end;

var
  a, b, c: integer;

begin
  Write('Введите через пробел три целых числа: '); Readln(a, b, c);
  Writeln('НОД(a,b)+НОД(b,c)=', NOD(a, b) + NOD(b, c))
end.

Тестовое решение:
Введите через пробел три целых числа: 2048 512 4262
НОД(a,b)+НОД(b,c)=514

Answer 2

1. Нахождение первого трехзначного числа в массиве: Допустим, у вас есть массив чисел. Пример кода на Python:

   def find_first_three_digit_number(arr):
       for num in arr:
           if 100 <= num <= 999:
               return num
       return None

# Пример использования
   my_array = [45, 123, 876, 234, 56]
   result = find_first_three_digit_number(my_array)
   print(result)
   

В этом примере `find_first_three_digit_number` пройдет по массиву и вернет первое трехзначное число, если таковое есть.

2. Нахождение последнего числа в интервале от -10 до 20 и кратного 3: Пример на Python:

   def find_last_in_range_and_multiple_of_three(arr):
       for num in reversed(arr):
           if -10 <= num <= 20 and num % 3 == 0:
               return num
       return None

# Пример использования
   my_array = [5, 9, 12, 18, -8, 15, 22]
   result = find_last_in_range_and_multiple_of_three(my_array)
   print(result)
   

В этом примере `find_last_in_range_and_multiple_of_three` вернет последнее число в интервале от -10 до 20 и кратное 3.

3. Определение четности первой цифры натурального числа: Пример на Python:

   def is_first_digit_even(number):
       first_digit = int(str(number)[0])
       return first_digit % 2 == 0

# Пример использования
   my_number = 367
   result = is_first_digit_even(my_number)
   print(result)
   

Функция `is_first_digit_even` преобразует число в строку, берет первый символ (первую цифру) и проверяет, является ли она четной.

4. Нахождение НОД(а, в) и НОД(в, с): Для нахождения НОД двух чисел можно воспользоваться алгоритмом Евклида. Пример на Python:

   def gcd(a, b):
       while b:
           a, b = b, a % b
       return a

# Пример использования
   num_a = 48
   num_b = 36
   num_c = 24

nod_ab = gcd(num_a, num_b)
   nod_bc = gcd(num_b, num_c)

print("НОД(а, в):", nod_ab)
   print("НОД(в, с):", nod_bc)
   

В этом примере `gcd` возвращает НОД двух чисел. Вы можете использовать эту функцию для нахождения НОД(а, в) и НОД(в, с).