Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
lame_a
0 / 0 / 0
Регистрация: 10.11.2017
Сообщений: 32
1

Обратный порядок цифр в числе

21.01.2018, 21:52. Просмотров 853. Ответов 2
Метки нет (Все метки)

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

В заданном натуральном числе удалить цифры 0 и 5 изменив порядок записи остальных цифр на обратный.
Условие: В заданном натуральном числе удалить цифры 0 и 5 изменив порядок записи остальных цифр на...

Ввести число n. Поменять порядок цифр числа n на обратный
Ввести число n. Поменять порядок цифр числа n на обратный.

Описать процедуру, меняющую порядок следования цифр целого положительного числа на обратный
описать процедуру InvertDigits(K),меняющую порядок следования цифр целого положительного числа К на...

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

Обратный порядок чисел
помогите изменить код для чтения и записи данных в файл in out procedure chisla(n:integer); var...

2
ir24
74 / 74 / 97
Регистрация: 21.12.2014
Сообщений: 185
Завершенные тесты: 1
22.01.2018, 09:17 2
Лучший ответ Сообщение было отмечено lame_a как решение

Решение

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
var n, m, len: integer;
 
begin
write('n = ');
read(n);
 
if (n >= 0) then
  begin
  m:= n; len:= 0;
  if (m = 0) then len:= 1;
  while (m > 0) do
  begin
  len:= len + 1; 
  m:= m div 10;
  end;
 
  if (len mod 2 = 0) then n:= n div 10;
  write('Ответ: ');
  while (n > 0) do
  begin
  write(n mod 10);
  n:= n div 100;
  end;
  end
else write('n должно быть положительное');
end.
0
Cyborg Drone
Модератор
5876 / 3459 / 2556
Регистрация: 17.08.2012
Сообщений: 11,107
22.01.2018, 21:00 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  n: integer;
 
begin
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  write('Ответ: ');
  repeat
    write(n mod 10);
    n := n div 100
  until n = 0
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2018, 21:00

Поменять порядок элементов массива на обратный
Дан массив размера N. Поменять порядок его элементов на обратный

Изменить порядок элементов массива X на обратный
Выполнить действия над массивами. Программа естественно должна обрабатывать любые числа для...

Поменять порядок отрицательных элементов массива на обратный
Дан одномерный массив из n целых чисел. Поменять порядок отрицательных элементов массива на...


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

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

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