Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
nikitkaya
0 / 0 / 0
Регистрация: 15.01.2015
Сообщений: 4
1

4-х значное число, а также число, записанное теми же цифрами в обратном порядке, оба - точные квадраты

15.01.2015, 17:39. Просмотров 1269. Ответов 1
Метки нет (Все метки)

четырехзначное число, а также число, записанное теми же цифрами в обратном порядке, оба являются точными квадратами. Найти эти числа.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.01.2015, 17:39
Ответы с готовыми решениями:

Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами
Дано натуральное число n. Переставить его цифры так, чтобы образовалось...

Переставить его цифры числа так, чтобы получилось максимальное число, записанное теми же цифрами.
Дано натуральное многоразрядное число, количество разрядов не более 9....

Дано четырёх значное число, представить цифры числа в обратном порядке
1.Дано четырёх значное число, представить цифры числа в обратном порядке....

Получить новое число b, записанными цифрами числа n, но в обратном порядке
Дано натуральное число n (n>0). Получить новое число b, записанными цифрами...

Получить число, приписав к нему такое же число , а потом число в обратном порядке
Дано натуральное число. Получить новое, приписав к нему такое же число , а...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3886 / 2866 / 3641
Регистрация: 05.06.2014
Сообщений: 14,101
15.01.2015, 18:22 2
Лучший ответ Сообщение было отмечено nikitkaya как решение

Решение

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
var
  i:integer;
 
function Rotate(a:integer):integer;
{ (C) Puporev }
var
  b:integer;
begin
  b:=0;
  while a>0 do
    begin
      b:=b*10+a mod 10;
      a:=a div 10
    end;
  rotate:=b;
end;
 
begin
  for i:=1000 to 9999 do
    if (trunc(sqrt(i))*trunc(sqrt(i))=i) and
       (trunc(sqrt(rotate(i)))*trunc(sqrt(rotate(i)))=rotate(i))
    then
    writeln(i:6,rotate(i):6);
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2015, 18:22

Данное натуральное число записать теми же цифрами в наименьшем виде
Помогите плиз.. Нужно данное натуральное число (напимер 594) записать теми же...

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

Дано целое число с количеством цифр в его записи<10, записать число в обратном порядке
Добрый день! Дано целое число с количеством цифр в его записи&lt;10, записать...


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

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

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