1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| kissliatinka |
14.11.2005 19:13
Сообщение
#1
|
|
Гость |
Array56. Дан целочисленный массив A размера N (Ј 15). Переписать в новый целочисленный массив B все элементы с порядковыми номерами, кратными трем (3, 6, …), и вывести размер полученного массива B и его содержимое. Условный оператор не использовать.
заранее благодарю |
![]() ![]() |
| klem4 |
15.11.2005 9:56
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Freeman, ты чо
for i:=3 to n do begin Это ктож внутри цикла фор меняет переменную цикла -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
kissliatinka работа с несколькими массивами 14.11.2005 19:13
FreeMan
uses ctr;
const
n=15;
var
a,b:array [1..n] of int... 15.11.2005 9:54
FreeMan Правила есть, чтоб их нарушать. Тем более условный... 15.11.2005 9:59
volvo To: FreeMan
Правила нарушать НЕ рекомендуется ник... 15.11.2005 10:17
FreeMan
i:=3
while i<n+1 do begin
b[j]:=a[i]; inc(i,3)... 15.11.2005 10:23
klem4 1) Так :)) Но всетаки обычно пишут :
while(i<=... 15.11.2005 10:48![]() ![]() |
|
Текстовая версия | 8.12.2025 16:08 |