Автоморфные числа натуральное число называется автоморфным , если оно равно последним цифрам своего квадрата. например 25²=625 . напишите программу, которая находит все автоморфные числа на отрезке [a , b ] . входные данные входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. гарантируется, что a ≤ b . выходные данные программа должна вывести в одну строчку все автоморфные числа на отрезке [ a , b ] , разделив их пробелами. если таких чисел нет, программа должна вывести число -1. примеры входные данные 20 100 выходные данные 25 76

Var a, b, a1, i, k, x, q: integer; begin readln(a, b); a1: =a; k: =0; while a< > 0 do begin a: =a div 10; k: =k+1; end; x: =1; for i: =1 to k do x: =x*10; q: =-1; for i: =a1 to b do if i=((i*i) mod x) then begin write(i, ' '); q: =i; end; if q=-1 then write(q); end.

uses crt; vara: array[1..7,1..10] of integer; b,i,j: integer; beginclrscr; randomize();

//заполнение массива случайными числами

for i: =1 to 7 dofor j: =1 to 10 dobegina[i,j]: =random(10); end;

//вывод массива

for i: =1 to 7 dobeginfor j: =1 to 10 dowrite(a[i,j]: 3,' '); writeln(); writeln(); end;

//удаляем строку 6 и меняем 5 и 2 строки местами

for j: =1 to 10 dobegina[6,j]: =a[7,j]; a[7,j]: =0; b: =a[5,j]; a[5,j]: =a[2,j]; a[2,j]: =b; end; writeln('отредактированный массив'); //выводим отредактированный массивfor i: =1 to 6 dobeginfor j: =1 to 10 dowrite(a[i,j]: 3,' '); writeln(); writeln(); end; readln(); end.

Так как чертёжник оказался в начальной точке, значит после цикла у нас должно получиться число, обратное последней команде. в данном случае  последняя команда такая: (8, -2), следовательно должны получить (-8, 2). возьмём начальную координату (0, 0) т.к. так проще считать. посмотрим где будет чертёжник после нескольких выполнений  цикла после первого по координатам х: 0  -1 + 0 + (-3) = -4 после первого по координатам y: 0  -4 + 2 + b = -2 + b по оси х нам не хватает ещё одного цикла, значит считаем после второго выполнения цикла после второго по координатам x: -4  *  2 = -8 после второго по координатам y: (-2 + b) * 2 = -4 + 2b кол-во во "повтори" мы нашли. это 2 т.к. при двух прокатах цикла мы получаем х= -8, что нам и надо чтобы вернуться в начальную точку.  осталось найти y. согласно последней команде, y должен быть обратным -2, следовательно y = 2, составим уравнение и найдём b. 2  = -4 + 2b -2b = -4 - 2 -2b = -6 2b = 6 b = 3 отвечаем на поставленный вопрос: a+b = 2 + 3 = 5. ответ: 5.