Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
 Аватар для GFS
18 / 18 / 8
Регистрация: 07.11.2009
Сообщений: 118

Различные цифры числа, множество

21.12.2009, 22:06. Показов 1717. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано число типа longint. Нужно вывести различные цифры, входящие в запись числа в порядке ПОЯВЛЕНИЯ. Использовать множество.
Напишите плиз алгоритм вывода именно в порядке появления. Заранее спс.

Добавлено через 22 минуты
посмотрите, тут нужно 1-2 строки написать, просто порядок ПОЯВЛЕНИЯ нужен
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
21.12.2009, 22:06
Ответы с готовыми решениями:

Напечатать различные цифры входящие во все элементы массива после максимального элемента
Помогите пожалуйста написать программу на паскале.Массив А, содержащий N многоразрядных чисел.Напечатать различные цифры входящие во все...

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

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

10
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
21.12.2009, 22:25
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
a,b:longint;
c:array[1..10]of integer;
k,i,f:integer;
begin
readln(a);
repeat
b:=b*10+a mod 10;
a:=a div 10;
until  a=0;
repeat
f:=0;
inc(k);
c[k]:=b mod 10;
for i:=1 to k-1 do
if c[k]=c[i] then f:=1;
if f=0 then write(c[k],' ');
b:=b div 10;
until b=0;
end.
1
 Аватар для Тамила
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
21.12.2009, 22:26
Цитата Сообщение от GFS Посмотреть сообщение
Использовать множество.
а множество тут при чем?
1
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
21.12.2009, 22:28
Видимо, смотреть, есть эта цифра в множестве или нет
1
 Аватар для Asthorat
0 / 0 / 0
Регистрация: 15.12.2011
Сообщений: 5
15.12.2011, 21:09
Здрасьте...помогите плиз чайнику в паскале))))
Дано число.Нужно вывести множество различных цифр в записи числа.Использовать множество.
0
 Аватар для ThElllEnD
4 / 4 / 0
Регистрация: 28.05.2011
Сообщений: 243
15.12.2011, 21:19
Цитата Сообщение от Asthorat Посмотреть сообщение
Здрасьте...помогите плиз чайнику в паскале))))
Дано число.Нужно вывести множество различных цифр в записи числа.Использовать множество.
Продуктивней было бы создать отдельную тему...
0
 Аватар для Asthorat
0 / 0 / 0
Регистрация: 15.12.2011
Сообщений: 5
15.12.2011, 21:20
я ж говорю чайник..куда нашла туда и засунула(((уж простите грешную....
0
 Аватар для ThElllEnD
4 / 4 / 0
Регистрация: 28.05.2011
Сообщений: 243
15.12.2011, 21:24
Уж простим... Наверное... Шучу
Под поиском яндекса (наверху страницы), слева кнопочка "Создать тему"
0
 Аватар для Asthorat
0 / 0 / 0
Регистрация: 15.12.2011
Сообщений: 5
15.12.2011, 21:27
И чу шуровать создавать да?
0
 Аватар для ThElllEnD
4 / 4 / 0
Регистрация: 28.05.2011
Сообщений: 243
15.12.2011, 21:32
угу...
0
 Аватар для Asthorat
0 / 0 / 0
Регистрация: 15.12.2011
Сообщений: 5
15.12.2011, 21:35
создала)))))Ыыы....делаю успехи...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.12.2011, 21:35
Помогаю со студенческими работами здесь

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
1. Построить блок-схему и решить задачу, используя цикл с предусловием: Вывести на экран все трехзначные числа, сумма первой и третьей...

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Хорошая тема,поэтому ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!! Условие: Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых...

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

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

По введенному множеству символов сформировать и вывести множество, исключающее все цифры
По введенному множеству символов сформировать и вывести множество, исключающее все цифры. Paskal ABC


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

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru