Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
Nina_L
3 / 3 / 0
Регистрация: 08.06.2010
Сообщений: 60
#1

Автоморфное число

08.09.2010, 15:30. Просмотров 2030. Ответов 1
Метки нет (Все метки)

На интервале от а до б найдите автоморфные числа. Автоморфным числом называется такое число, которое равно последним цифрам своего квадрата 5(2)=25, 25(2)=625
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.09.2010, 15:30
Ответы с готовыми решениями:

Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр
Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в...

Данно вещественное число X. Найти в нем первое число десятка, число десятых долей.
помогите плз решить Данно вещественное число X. Найти в нем первое число...

Создать программу, которая найдет наименьшее число, который взаимное простое число с 60 и больше, чем введенное число
Создать программу, которая найдет наименьшее число, который взаимное простое...

Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетн
Дано целое число. Вывести его строку-описание вида «отрицательное четное...

Число пассажиров, имеющих более 2-х вещей и число тех, у кого количество вещей превосходит среднее число вещей
Помогите пожалуйста, находила эту задачу в интернете, но мне нужно сделать так,...

1
Puporev
Модератор
54387 / 41968 / 28988
Регистрация: 18.05.2008
Сообщений: 98,861
08.09.2010, 15:43 #2
Лучший ответ Сообщение было отмечено Nina_L как решение

Решение

Pascal
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
34
35
36
37
uses crt;
function Avto(n:longint):boolean;
var p,m:longint;
    f:boolean;
begin
p:=n;
m:=n*n;
f:=true;
while (p>0)and f do
 begin
  if (p mod 10)<>(m mod 10) then f:=false
  else
   begin
    p:=p div 10;
    m:=m div 10;
   end;
 end;
Avto:=f;
end;
var a,b,i,k:longint;
begin
clrscr;
repeat
writeln('Введите диапазон натуральных чисел b>a:');
readln(a,b);
until(a>0)and(b>a);
writeln('Автоморфные числа в интервале ',a,'-',b);
k:=0;
for i:=a to b do
if Avto(i) then
 begin
  writeln(i,' -  ',i*i);
  k:=1;
 end;
if k=0 then write('Таких чисел нет!');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.09.2010, 15:43

Изменяя число i от 1 до n (без пробелов) получить число. Посчитать в нем количество каждых цифр. Посчитать общее число цифр
Дано число n меньше или равно 30 000. Изменяя число i от 1 до n будем...

Введиет число, напечатайте 1, если число четное, и 0 если число нечетное
Помогите Please решить 1)Введиет число, напечатайте 1,если число четное ,и 0...

Даны натуральное число n, действительное число а. Выдать на экран последовательность чисел: а, а+1!, а+2!, а+3!, . , а+п!
вот есть програма которая просто виводит последовательность чисел без...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru