Question

Вариант 2. нетисел в1. Напишите программу, которая в последовательности натуральных чисел определмаксимальное число, оканчивающееся на 7. Программа получает на вход количесіпоследовательности, а затем сами числа. В последовательности всегда имеется число,оканчивающееся на 7.Количество чисел не превышает 1000. Введённые числа по модулю не превышают 50 ооо.2. Напишите программу, которая в последовательности натуральных чисел определяет суммучисел, оканчивающихся на 3. Программа получает на вход количество чисел впоследовательности, а затем сами числа.3. Напишите программу, которая в последовательности натуральных чисел определяет количестчисел, кратных 3 и оканчивающихся на 4. Программа получает на вход количество чисел впоследовательности, а затем сами числа.​

Answer 1

Задание 1

1. var
2.    i, N, inputNumber, max: integer;
3. begin
4.    Write('Введите количество чисел: ');
5.    Readln(N);
6.    
7.    for i := 1 to N do
8.        begin
9.            Write('Введите число: ');
10.            Readln(inputNumber);
11.            
12.            if (inputNumber mod 10 = 7) then
13.                if (inputNumber > max) then
14.                    max := inputNumber;
15.        end;
16.    
17.    if (max = 0) then
18.        Write('В последовательности нет чисел, оканчивающихся на 7')
19.    else Write('Максимальное число, оканчивающееся на 7: ', max);
20. end.

Задание 2

1. var
2.    i, N, inputNumber, sum: integer;
3. begin
4.    Write('Введите количество чисел: ');
5.    Readln(N);
6.    
7.    for i := 1 to N do
8.        begin
9.            Write('Введите число: ');
10.            Readln(inputNumber);
11.            
12.            if (inputNumber mod 10 = 3) then
13.                sum := sum + inputNumber;
14.        end;
15.    
16.    if (sum = 0) then
17.        Write('В последовательности нет чисел, оканчивающихся на 3')
18.    else Write('Сумма чисел, оканчивающихся на 3: ', sum);
19. end.

Задание 3

1. var
2.    i, N, inputNumber, valueOfNumbers: integer;
3. begin
4.    Write('Введите количество чисел: ');
5.    Readln(N);
6.    
7.    for i := 1 to N do
8.        begin
9.            Write('Введите число: ');
10.            Readln(inputNumber);
11.            
12.            if ((inputNumber mod 10 = 4) and (inputNumber mod 3 = 0)) then
13.                valueOfNumbers := valueOfNumbers + 1;
14.        end;
15.    
16.    if (valueOfNumbers = 0) then
17.        Write('В последовательности нет чисел, оканчивающихся на 4 и кратных 3-м')
18.    else Write('Сумма чисел, оканчивающихся на 4 и кратных 3-м: ', valueOfNumbers);
19. end.

Answer 2

Для решения каждой из задач, представленных в вашем варианте, мы можем написать отдельные программы. Ниже приведены решения каждой задачи на языке Python.

1. Нахождение максимального числа, оканчивающегося на 7:

pythonCopy code
def find_max_ending_with_7(sequence_length):
    max_num = 0

    for _ in range(sequence_length):
        num = int(input())
        if num % 10 == 7 and num > max_num:
            max_num = num

    return max_num

sequence_length = int(input("Введите количество чисел в последовательности: "))
result = find_max_ending_with_7(sequence_length)
print("Максимальное число, оканчивающееся на 7: ", result)

2. Нахождение суммы чисел, оканчивающихся на 3:

pythonCopy code
def find_sum_ending_with_3(sequence_length):
    sum_ending_with_3 = 0

    for _ in range(sequence_length):
        num = int(input())
        if num % 10 == 3:
            sum_ending_with_3 += num

    return sum_ending_with_3

sequence_length = int(input("Введите количество чисел в последовательности: "))
result = find_sum_ending_with_3(sequence_length)
print("Сумма чисел, оканчивающихся на 3: ", result)

3. Нахождение количества чисел, кратных 3 и оканчивающихся на 4:

pythonCopy code
def find_count_divisible_by_3_ending_with_4(sequence_length):
    count_divisible_by_3_ending_with_4 = 0

    for _ in range(sequence_length):
        num = int(input())
        if num % 10 == 4 and num % 3 == 0:
            count_divisible_by_3_ending_with_4 += 1

    return count_divisible_by_3_ending_with_4

sequence_length = int(input("Введите количество чисел в последовательности: "))
result = find_count_divisible_by_3_ending_with_4(sequence_length)
print("Количество чисел, кратных 3 и оканчивающихся на 4: ", result)

Вы можете запустить каждую программу отдельно, вводя числа последовательности в соответствии с указанными условиями задачи.