Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.06.2017
Сообщений: 59
1

Разработать программу, которая в интервале от N1 до N2 определяет все числа являющиеся «перевертышами»

20.06.2017, 19:59. Показов 538. Ответов 3
Метки нет (Все метки)

Разработать программу, которая в интервале от N1 до N2 определяет все числа являющиеся «перевертышами». «Перевертышем» называется число, для которого при перестановке его цифр в обратном порядке получается то же самое число. Например, числа 383, 11, 78487, 292 – «перевертыши».

Добавлено через 57 минут
Помоги с программой , очень плохо с программированием
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.06.2017, 19:59
Ответы с готовыми решениями:

Разработать программу, которая в интервале от N1 до N2 определяет все числа являющиеся «перевертышами»
Разработать программу, которая в интервале от N1 до N2 определяет все числа являющиеся...

Составить программу, которая определяет все 4-значные числа на интервале
Составить программу REBUS, которая определяет все 4-значные числа на интервале , удовлетворяющие...

Напишите программу, которая определяет все такие числа в последовательности
Напишите программу, которая определяет все такие числа в последовательности. Если некоторое...

Составить программу, которая находит все дружественные числа в интервале
привет:) это снова я ....как быть с такой задачей... ......... Дружественными числами являются...

__________________
3
Эксперт Pascal/Delphi
6631 / 4461 / 4744
Регистрация: 05.06.2014
Сообщений: 21,923
20.06.2017, 20:13 2
Взято отсюда:

Палиндром

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
function Palindrom(n: integer): boolean;
var
  m, p: integer;
  i: integer;
begin
  m := n;
  p := 0;
  while m > 0 do
  begin
    i := m mod 10;
    p := p * 10 + i;
    m := m div 10;
  end;
  if p = n then Palindrom := true
  else Palindrom := false;
end;
 
var
  n1, n2, i: integer;
 
begin
  write('Введите числа N1 и N2: ');
  readln(n1, n2);
  writeln('Числа от N1 до N2, дающие палиндром: ');
  for i := n1 to n2 do
    if Palindrom(i) then
      writeln(i:5);
end.
0
4320 / 2090 / 2111
Регистрация: 10.12.2014
Сообщений: 8,075
21.06.2017, 05:42 3
Вот так короче:
Pascal
1
2
3
4
5
function p(n:integer):=n.toString=ReverseString(n.toString);
begin
  var n1:=ReadLnInteger('n1 =');
  for var n:=n1 to ReadLnInteger('n2 =') do if p(n) then print(n);
end.
0
1742 / 1335 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
21.06.2017, 10:59 4
Без функции
Pascal
1
2
3
begin
  writeln(Range(ReadlnInteger('N1:'), ReadlnInteger('N2:')).Where(v -> v.ToString = ReverseString(v.ToString)).JoinIntoString(', '));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.06.2017, 10:59

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Составить программу, которая находит все числа-близнецы в интервале [2;1000]
Два нечетных простых числа, разнящиеся на два называются Близнецами (5 и 7, 11и 13 , 17и 19 ...)....

Составить программу которая выводит все числа в интервале от 1 до 50 которые делятся на 3. Перевод с С++
#include <stdio.h> #include <iostream.h> #include <conio.h> #include <math.h> void main() {...

Разработать программу, которая находит все разбиения заданного числа
Программу надо написать с помощью процедур.


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

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

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