Question

1.На промежутке от 1 до N найти все числа, которые делятся на свою последнюю цифру. 2.Найти все трехзначные числа, которые кратны 7 и сумма цифр которых кратна 7. 3.Дано натуральное число N. Простое ли оно?

Answer 1

Ответ:

PascalABC.NET

#1

begin

 var A := Range(1, ReadInteger('n=')).Where(x -> x mod 10 <> 0);

 A.Where(x-> x mod (x mod 10) = 0).Println;

end.

#2

function NumSum(number:integer):integer;

begin

 NumSum := 0;

 while number > 0 do begin

   NumSum += number mod 10;

   number := number div 10;

 end;

end;

begin

 var A := Range(100, 999);

 A.Where(x -> (x mod 7 = 0) and (NumSum(x) = 7)).Println;

end.

#3

function IsSimple(number:integer):boolean;

begin

 IsSimple := number >= 2;

 for var i := 2 to trunc(sqrt(number)) do if number mod i = 0 then IsSimple := false

end;

begin

 var N := ReadInteger();

 Print(IsSimple(N));

end.

Answer 2

1. Найти все числа от 1 до N, которые делятся на свою последнюю цифру: Для этого нужно перебрать все числа от 1 до N и проверить, делится ли каждое число на свою последнюю цифру. Если да, то оно удовлетворяет условию задачи. Вот пример кода на Python:

pythonCopy code
def is_divisible_by_last_digit(number):
    last_digit = number % 10
    return number % last_digit == 0

def find_numbers_divisible_by_last_digit(N):
    result = []
    for num in range(1, N + 1):
        if is_divisible_by_last_digit(num):
            result.append(num)
    return result

N = 100  # Замените значение N на необходимое
result_list = find_numbers_divisible_by_last_digit(N)
print(result_list)

2. Найти все трехзначные числа, которые кратны 7 и сумма цифр которых кратна 7: Также, как и в предыдущей задаче, нам нужно перебрать все трехзначные числа и проверить два условия: кратность 7 и кратность суммы цифр. Вот пример кода на Python:

pythonCopy code
def is_multiple_of_seven(number):
    return number % 7 == 0

def is_sum_of_digits_multiple_of_seven(number):
    digit_sum = sum(int(digit) for digit in str(number))
    return digit_sum % 7 == 0

def find_numbers_multiple_of_seven_and_sum_divisible_by_seven():
    result = []
    for num in range(100, 1000):
        if is_multiple_of_seven(num) and is_sum_of_digits_multiple_of_seven(num):
            result.append(num)
    return result

result_list = find_numbers_multiple_of_seven_and_sum_divisible_by_seven()
print(result_list)

3. Дано натуральное число N. Простое ли оно? Простое число - это число, которое больше 1 и имеет только два делителя: 1 и само число. Для проверки простоты числа N, нужно перебрать все числа от 2 до корня из N и проверить, делится ли N на какое-либо из них без остатка. Если делится хотя бы на одно число, кроме 1 и самого себя, то N не является простым числом. Вот пример кода на Python:

pythonCopy code
def is_prime_number(N):
    if N <= 1:
        return False
    for i in range(2, int(N**0.5) + 1):
        if N % i == 0:
            return False
    return True

N = 37  # Замените значение N на необходимое
if is_prime_number(N):
    print(f"{N} - простое число.")
else:
    print(f"{N} - не является простым числом.")

Замените значение переменной N в приведенных примерах на необходимое вам число для выполнения задачи.