[FONT=Times][SIZE=5] Помогите плис... Мне надо 50 задач по програмированию на тему процедуры и функции, задачи могут быть любыми по сложности и реализованы на языке программирования - Pascal. Буду очень благодарен... Очень срочно... Пришлите плис условия и решенные задачь по мейлу ****@mail.ru
Группа: Наши Люди Сообщений: 292 Регистрация: 18.12.2005 Из: Невинномысск Пользователь №: 88.260
Респектов: 72
Code
const N=9; a: array [1..N] of byte = (1, 2, 3, 4, 5, 6, 7, 8, 9); var i, j: integer; begin for i := 1 to N-1 do begin for j := i to N-1 do begin write(a[i]); writeln(a[j]); end; end; end.
Группа: Наши Люди Сообщений: 2.336 Регистрация: 27.01.2006 Из: рнд Пользователь №: 500
Респектов: 408
Просто шикарно... на момент моего последнего сообщения программа была уже готова вместе с генератором целых чисел, но.... ВЫРУБИЛИ СВЕТ Добавлено: Если еще нужна программа, в которой используется массив произвольной длинны, то отпишись.
