Задача «Автоморфные числа»
Подготовка к олимпиаде по информатике:
Задача «Автоморфные числа». (Максимальное количество баллов – 25 баллов).
Автоморфным называется такое число, которое равно последним цифрам своего квадрата.
Например:
52=25;
252=625
Требуется найти все автоморфные числа в интервале [m, n]. Исходные данные: с клавиатуры вводятся значения целых чисел m и n (1 ≤ m ≤ 1 000, 1 ≤ n ≤ 1 000). Выходные данные: на экран выводятся числа из интервала [m, n]. , являющиеся автоморфными. Если таких чисел нет, на экран выводится число 0
Требования к выполнению: удачное прохождение каждого теста – 5 баллов.
Решение:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
var m,n,i,a,s:integer; begin writeln('Введите диапозон через пробел'); readln(m,n); for i:=m to n do begin if i div 10<>0 then begin if i div 100<>0 then begin a:=1000; end else begin a:=100; end; end else begin a:=10; end; if sqr(i)mod a=i then begin s:=i; write(i,' '); end; end; if s=0 then begin writeln(s); end; end. |
©Решение предоставил Тегай Алексей
Тестовые данные к задаче:
Будем благодарны, если вы поделитесь уроком со своими друзьями в социальных сетях, оставите отзыв и посмотрите другие материалы на нашем сайте.