Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 13.01.2012
Сообщений: 14

Напечатать перестановку цифр в числе

02.02.2012, 12:36. Показов 1744. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано натуральное число L=ABCDEK, составит из цифр A,B,C,D,E,K. Напечатать перестановку цифр в числе, так чтобы получилось число M равное=BACDKE
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.02.2012, 12:36
Ответы с готовыми решениями:

Среди цифр введенной строки, напечатать ту, которая появлялась более 3 раз. Если таких цифр было несколько, напечатать ту, что встретилась первым
Среди цифр введенной строки, напечатать ту, которая появлялась более 3 раз. Если таких цифр было несколько, напечатать ту, что встретилась...

Определение цифр в числе,нахождение предпоследней цифры в числе
Дано натуральное число n(10<=n<=10000).Определить, сколько цифр в числе и найти предпоследнюю цифру.

Определение цифр в числе,нахождение предпоследней цифры в числе
#include "stdafx.h" #include <math.h> #include <locale.h> int main() { setlocale(LC_ALL, "RUS"); int n, b, c = 0; ...

4
любитель покушать
 Аватар для Севак
687 / 641 / 248
Регистрация: 25.09.2011
Сообщений: 1,313
02.02.2012, 13:09
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

avtomat_ak74m,
Pascal
1
2
3
4
5
6
7
8
uses crt;
var
i: integer;
begin
write('Введите число: ');
read(i);
write('Результат: ',(i div 10000 mod 10),(i div 100000),(i div 1000 mod 10),(i mod 1000 div 100),(i mod 10),(i mod 100 div 10));
end.
0
0 / 0 / 0
Регистрация: 13.01.2012
Сообщений: 14
03.02.2012, 12:38  [ТС]
Севак, спасибо тебе огромное!!!!!

Добавлено через 16 часов 2 минуты
Севак, а если сделать
Pascal
1
2
3
var
L,M:longing;
B,A,C,D,K,E:longing;
чтобы в конце цикла
Pascal
1
2
M:E*100000+K*10000 и т. д.
Writeln:(Исходное число L , число перевертыш M
это в задании целочисленные выражения
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
03.02.2012, 12:47
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
L,M:longing;
B,A,C,D,K,E:byte;
......................
A:=L DIV 100000;
B:=L DIV 10000 MOD 10;
C:=L DIV 1000 MOD 10;
D:=L DIV 100 MOD 10;
E:=L DIV 10 MOD 10;
K:=L MOD 10;
M:=B*100000+A*10000+C*1000+D*100+K*10+E;
0
0 / 0 / 0
Регистрация: 13.01.2012
Сообщений: 14
03.02.2012, 12:57  [ТС]
Puporev, L,M:longint
B,A,C,D,K,E: longint(обязательно)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
03.02.2012, 12:57
Помогаю со студенческими работами здесь

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

Задача на перестановку цифр
Помогите разобрать кусок программы.Задача на перестановку цифр типа стринг для получения наибольшего числа. Program balance; ...

Сделать в числе n циклическую перестановку четных бит на k бит вправо
Написать программу, которая позволит ввести два числа n и k типа ulong с клавиатуры, напечатать их на дисплее, и используя битовые операции...

Реализовать перестановку цифр заданного числа согласно условию
Как убрать впереди 0 в примере номер 2?А то выводит 0142 Вот код : #include <iostream> using namespace std; int main() { int...

Написать программу, которая выводит первую цифру в числе, последнюю цифру в числе, сумму всех цифр числа.
Помогите написать программу, которая выводит первую цифру в числе, последнюю цифру в числе, сумму всех цифр числа


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru