Question

Проект:Афтоморфные числа Автоморфными называются числа которые равны последним числам своего квадрата Составте программу которая находит все автоморфные числа в интервале от m до n включительно m и n вводятся с клавиатуры Очень срочно пожалуйста!!!

Answer 1

Var
m,n,i,k,b:Integer;
s1,s2:String;
begin
Writeln('Введите промежуток чисел');
Readln(m,n);
Writeln('Автоморфные числа в заданном промежутке:');
For i:=m to n do
begin
b:=1;
//преобразуем число и его квадрат в строку
Str(i,s1);
Str(sqr(i),s2);
For k:=0 to Length(s1)-1 do
begin
//посимвольно сравниваем
if s1[Length(s1)-k] <> s2 [Length(s2)-k] then
b:=0;
end;
if b=1 then
Writeln(s1);
end;
end.

Answer 2

Хорошо, вот программа на языке Python, которая находит все автоморфные числа в заданном интервале от m до n (включительно):

pythonCopy code
def is_automorphic(num):
    square = num**2
    return str(num) == str(square)[-len(str(num)):]

def find_automorphic_numbers(m, n):
    automorphic_numbers = []
    for num in range(m, n+1):
        if is_automorphic(num):
            automorphic_numbers.append(num)
    return automorphic_numbers

if __name__ == "__main__":
    try:
        m = int(input("Введите начало интервала (m): "))
        n = int(input("Введите конец интервала (n): "))

        if m <= n:
            result = find_automorphic_numbers(m, n)
            if result:
                print("Автоморфные числа в интервале от {} до {}: {}".format(m, n, result))
            else:
                print("В указанном интервале нет автоморфных чисел.")
        else:
            print("Ошибка: начало интервала должно быть меньше или равно концу интервала.")
    except ValueError:
        print("Ошибка: Введите целочисленные значения для m и n.")

Вы можете скопировать этот код в среду программирования на Python и запустить его. Программа запросит у вас ввести начало интервала (m) и конец интервала (n), а затем выдаст все автоморфные числа в этом интервале.