ПОЖАЙЛУСТА напишите несколько программок

[LeN@]

РЕБЯТА ОЧЕНЬ НУЖНА ПОМОЩЬ
ПОМОГИТЕ, ЕСЛИ У ВАС ЕСТЬ ВРЕМЯ И НЕ ЛЕНЬ, РЕШИТЬ НЕСКОЛЬКО ПРОСТЫХ ЗАДАЧЕК. МНЕ СРОЧНО НАДО, А ВРЕМЕНИ НЕТ, КУДА УХОДИТ НЕ ЗНАЮ
НА ПАСКАЛЕ ИЛИ НА С++.
1) НАЙТИ ЭЛЕМЕНТЫ (И ПОДСЧИТАТЬ ИХ КОЛИЧЕСТВО), КОТОРЫЕ НЕ ПРЕВОСХОДЯТ 10000 И ДЕЛЯТСЯ НА ОДНУ ИЗ СВОИХ ЦИФР (КРОМЕ ЦИФР 0 И 1).ЗДЕСЬ С УСЛОВИЕМ(В ПРОГРАММЕ ОБЯЗАТЕЛЬНО ПРИМЕНЕНИЕ ПРОЦЕДУР И/ИЛИ ФУНКЦИЙ С ПЕРЕДАВАЕМЫМИ ПАРАМЕТРАМИ. НЕ ДОПУСКАЕТСЯ ИСПОЛЬЗОВАНИЕ ТИПА STRING И ARRAY.)(без использования массивов и промежуточных файлов для хранения всей последовательности)
ПОСЛЕДОВАТЕЛЬНОСТЬ ВВОДИТСЯ С КЛАВИАТУРЫ
2)(Дана последовательность не более 30 ненулевых целых чисел, индикатором окончания последовательности является 0. Последовательность в одномерный массив ) СРЕДИ ЭЛЕМЕНТОВ МАССИВА НАЙТИ ИНДЕКСЫ ВСЕХ ТАКИХ, КОТОРЫЕ МОГУТ БЫТЬ ПОЛУЧЕНЫ CУММИРОВАНИЕМ ДВУХ ЭЛЕМЕНТОВ ЭТОГО ЖЕ МАССИВА
тоже с условием (ИСПОЛЬЗОВАНИЕ ДОПОЛНИТЕЛЬНЫХ МАССИВОВ ЗАПРЕЩЕНО) (В ПРОГРАММЕ ОБЯЗАТЕЛЬНО ПРИМЕНЕНИЕ ПРОЦЕДУР И/ИЛИ ФУНКЦИЙ С ПЕРЕДАВАЕМЫМИ ПАРАМЕТРАМИ)

3)(Для произвольно выбранной последовательности целых чисел, в которой не более 30 элементов Методом прямого включения)
ЗАМЕНИТЬ ОТРИЦАТЕЛЬНЫЕ ЭЛЕМЕНТЫ МАССИВА НА ИХ МОДУЛИ, ЕСЛИ СУММА ИХ ЦИФР БОЛЬШЕ К. НАПЕЧАТАТЬ ИНДЕКСЫ И ЗНАЧЕНИЯ ЭТИХ ЭЛЕМЕНТОВ

4)НАПЕЧАТАТЬ В АЛФАВИТНОМ ПОРЯДКЕ ВСЕ СЛОВА, КОТОРЫЕ НАЧИНАЮТСЯ С БОЛЬШОЙ БУКВЫ И ЗАКАНЧИВАЮТСЯ ЗАДАННОЙ ЦЕПОЧКОЙ ИЗ ТРЕХ СИМВОЛОВ. ОПРЕДЕЛИТЬ КОЛИЧЕСТВО СЛОВ, СОДЕРЖАЩИХ ВСЕ СИМВОЛЫ ЗАДАННОЙ ЦЕПОЧКИ, И НАПЕЧАТАТЬ ПОРЯДКОВЫЕ НОМЕРА ЭТИХ СЛОВ.(Общее количество символов в последовательности не превышает 250. Текстовая строка задается с клавиатуры и вводится в переменную типа string.)

БУДУ ОЧЕНЬ ПРИЗНАТЕЛЬНА ЗА ПОМОЩЬ

[Хыиуду]

Леночка,
1. Отпустите капслок
2. Разберитесь с заданием.
1) НАЙТИ ЭЛЕМЕНТЫ (И ПОДСЧИТАТЬ ИХ КОЛИЧЕСТВО), КОТОРЫЕ НЕ ПРЕВОСХОДЯТ 10000 - элементы чего? Массива? Последовательности? Натурального ряда? Только потом можно догадаться, что это последовательность, и она вводится с клавиатуры. Запрет на использование строк выглядит чересчур жестким, массивов - просто идиотским.

Код: Выделить всё

function delitsya(x:longint):boolean;
begin
  while x>0 do
  begin
     if (x mod 10>1) and (x mod (x mod 10)=0)
         then begin delitsya:=true; exit; end;
     x:=x div 10;
  end;
  delitsya:=false;
end;

{для задания 2}
function is_summa(x):boolean;
var i,j:byte;
begin
  for i:=1 to N do
  for j:= 1 to N do
    if (i<>j) and (A[i]+A[j]=x) then 
        begin 
           is_summa:=true; 
           exit;
        end; 
  is_summa:=false;
end;