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

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

Показать ответ
Ответ:
умныйпогоршкам
умныйпогоршкам
08.10.2020 14:19
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота