ввести последоватьльность с клавиатуры и расположить элементы кратные трём по убыванию
решить в паскале
BobbyFresnel:
А что делать с теми, которые некратны 3?
что их не было в строке где элементы кратные трём
Т.е. есть три варианта решения таких задач. Самый простой - вывести в нужном порядке только отобранные элементы. Более сложный - это когда "в хвост" вывода по первому варианту добавляются остальные элементы, как они были. И самый сложный - это когда некратные остаются на своих местах, а кратные переупорядочиваются на местах, где были кратные.
должна быть строка где только элементы кратные трём и расположины по убыванию
А, ьт.е. самое простое. Это назвается выборкой.
Это пустячок
я мучаюсь уже сутки над э
этой задачей
Засекайте время))
)))
Ответы
Ответ дал:
1
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ReadArrInteger('Вводите:', n);
a.Where(p -> p mod 3 = 0).SortedDescending.Println
end.
Приложения:
PascalABC.NET
хорошо а как мне тогда указывать задачи что бы писали по проще?
Если PascalABC.NET, то какое он имеет право цепляться к задаче, которая написана средствами PascalABC.NET? Мы ведь не использовали никакиз сторонних ресурсов, только средства языка. А то получается, как если сесть в самолет, а потом не лететь на нем, а запрячь пятерку ослов и везти этот самолет по дороге. Зачем PascalABС.NET, если в нем нельзя использовать его возможности ?
Вам, думаю, надо указывать, что программа нужна на Turbo Pascal / Free Pascal. Но лучше Turbo, он самый замшелый. А но еще на Free напишут с динамической памятью, снова будут вопросы.
Не используйте термин "попроще", он неверен по отношению к программам. В программировании "попроще" - всегда означает покороче, максимально использую все возможности языка.
"Попроще для учителя - подлинее и посложнее для ученика.". А попросту, учителя НЕ ЖЕЛАЮТ осваивать новые возможности современных версий. Зарплату им и так платят.
спасибо большое)
Не унывайте, тут есть народ, который только на Турбо паскале пишет, может дадут решение ))
надеюсь)
Ну или создайте новый вопрос, указав точную версию паскаля. PascalABC.NET умеет выполнять программы, написанные в старых версиях. Для любителей тех самых упряжек )) Заодно посмотртие еще раз на алгоримт пузырьковой сортировки, потому что наиболее вероятный претендент на упорядочение - это она. Самая худшая по производительности и самая короткая по записи.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
3 года назад
3 года назад
8 лет назад