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

Найти все квадратные палиндромические числа с нечетным количеством цифр

27.06.2014, 02:35. Показов 1370. Ответов 2
Метки нет (Все метки)

На заданном числовом промежутке требуется найти все квадратные палиндромические числа с нечетным количеством цифр,например,121,10201
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.06.2014, 02:35
Ответы с готовыми решениями:

Найти все слова с нечетным количеством буквы "о"
Дан массив из слов У(к). Найти все слова с нечетным количеством буквы "о".

Дан массив из слов У(к). Найти все слова с нечетным количеством буквы "о".
помогите пожалуйста написать программу... Дан массив из слов У(к). Найти все слова с нечетным...

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

Найти все натуральные числа, состоящие из N цифр, для которых верно утверждение "все цифры числа различны"
Дано натуральное число N (2<=N<=8). Найти все натуральные числа, состоящие из N цифр, для которых...

2
3 / 1 / 1
Регистрация: 14.11.2013
Сообщений: 164
29.06.2014, 23:16  [ТС] 2
помогите решить пожалуйста
0
Модератор
9365 / 4725 / 3175
Регистрация: 17.08.2012
Сообщений: 14,844
30.06.2014, 04:42 3
Лучший ответ Сообщение было отмечено Sashok1996 как решение

Решение

Это не помогите, а за меня решите. Помогите - если Вы выложили свои наработки. Не постигаю: интересная задача, чего бы самому не решить?
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
var i, x, y, k, a, b: integer;
    f: boolean;
begin
  repeat
    write('Начало интервала: ');
    readln(a);
    write(' Конец интервала: ');
    readln(b);
    if (a > b) or (a < 0) or (b < 0) then writeln('Интервал задан неверно.')
  until (a <= b) and (a >= 0) and (b >= 0);
  f := true;
  for i := trunc(sqrt(a)) to trunc(sqrt(b)) do
    begin
      x := i * i;
      if x >= a
        then begin
          y := 0;
          k := 0;
          while x > 0 do
            begin
              y := y * 10 + x mod 10;
              x := x div 10;
              inc(k)
            end;
          if odd(k) and (y = i * i)
            then begin
              writeln(y);
              f := false
            end
        end
    end;
  if f then writeln('Квадратных палиндромов не найдено.');
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.06.2014, 04:42
Помогаю со студенческими работами здесь

Найти все четырёхзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.
Помогите решить ещё одну задачку :) Найти все четырёхзначные числа, у которых сумма крайних цифр...

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

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

Верно ли что число 4-значное и у него сумма крайних цифр равна сумме средних цифр? Найти все такие числа.
Написать программу : Дано нат. число. Верно ли что число 4-значное и у него сумма крайних цифр...


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

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

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