В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
drwnd
drwnd
10.04.2022 14:48 •  Информатика

Автоморфные числа. натуральное число называется автоморфным, если оно равно последним цифрам его квадрата. например: 25^2=625. напишите программу, которая вводит натуральное число n и выводит на экран все автоморфные числа, не превосходящие n.

Показать ответ
Ответ:
kazimirova2009
kazimirova2009
09.07.2020 10:16
Var
  n, i, m: longint;
  s1, s2: string;
  l1: integer;

begin
  Write('Введите натуральное число: ');
  Readln(n);
  Writeln('Автоморфные числа:');
  for i := 1 to n do
  begin
    m := sqr(i);
    Str(i, s1);
    l1 := Length(s1);
    Str(m, s2);
    if s1 = Copy(s2, Length(s2) - l1 + 1, l1) then Writeln(i)
  end
end.

Тестовое решение:

Введите натуральное число: 10000
Автоморфные числа:
1
5
6
25
76
376
625
9376
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота