3 / 3 / 1
Регистрация: 01.05.2013
Сообщений: 123
1

Кубические автоморфные числа равны последним цифрам своих кубов. Например: б3 = 216, найти все кубические автоморфные числа не превышающие 999

24.05.2013, 20:32. Показов 2613. Ответов 1
Метки нет (Все метки)

Кубические автоморфные числа равны последним цифрам своих кубов. Например: б3 = 216, найти все кубические автоморфные числа не превышающие 999
ПОМОГИТЕ ПЛИИИИИИИИИИИИИИИЗЗЗЗ!!!!!!!!! !

Добавлено через 33 секунды
на делфи ПОЖАЛУЙСТА!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2013, 20:32
Ответы с готовыми решениями:

Составить процедуру, находящую все кубические автоморфные числа в [1, N]

Кубические автоморфные числа
Помогите пожалуйста решить задачку..! Кубические автоморфные числа равны последним цифрам своих...

Задача на кубические автоморфные числа
найдите все кубические аморфные числа, меньшие А(А вводится с клавиатуры). Кубические автоморфные...

Встроенные циклы.  На отрезке [n, m] найти все простые (совершенные, автоморфные, полиндромы, числа Армстронга и т.д.) числа
Я студент, Завтра надо сдать это задание. Прошу написать решение, прикрепить его в файл, чтобы была...

1
133 / 133 / 22
Регистрация: 29.08.2012
Сообщений: 353
25.05.2013, 00:39 2
Лучший ответ Сообщение было отмечено wfall как решение

Решение


63*63=3969*63=250047, боюсь вы невнимательно читали условие, а конкретно к автоморфным может быть подойдет такое:
Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
begin
Memo1.Clear;
for i := 1 to 999 do
begin
n:=i*i;
if pos(inttostr(i),inttostr(n))>Length(inttostr(n))-Length(inttostr(i)) then Memo1.Lines.Add('i='+inttostr(i)+'i^2='+inttostr(n));
end;
end;
на форме кнопка и Memo, код вставить в обработчик нажатия кнопки

Добавлено через 2 минуты
да и я не вник в задачу, для кубических подойдет тот же алгоритм с некоторым изменением
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
s:string;
begin
Memo1.Clear;
for i := 1 to 999 do
begin
n:=i*i*i;
if pos(inttostr(i),inttostr(n))>Length(inttostr(n))-Length(inttostr(i)) then Memo1.Lines.Add('i='+inttostr(i)+'i^3='+inttostr(n));
end;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.05.2013, 00:39
Помогаю со студенческими работами здесь

Найти все трехзначные числа, которые равны сумме кубов своих цифр
Найти все трехзначные числа, которые равны сумме кубов своих цифр

Найти все автоморфные числа на отрезке [a, b]
Натуральное число называется автоморфным , если оно равно последним цифрам своего квадрата....

Найти все трехзначные автоморфные числа
Найти все трехзначные числа, квадрат которых оканчивается тремя цифрами, составляющими данное...

Найти на заданном отрезке все числа, которые равны сумме кубов своих цифр
Написать программу, которая находит на заданном отрезке все числа, которые равны сумме кубов своих...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru