Помогите с паскалем плиз! (разминка)

[ShwilyIgor]

Помогите плиз кто чем может!

Тема: Функции.
задача1:
Даны строки символов a,b.
Определить max(f(a),5)*max(f(b),10),
где f(s) - количество пробелов в строке.

Тема: Рекурсивные подпрограммы.
задача2:
Рекурентное соотношение
x(i) = (x(i-1)/2)+(a/(2x(i-1))), x(1) = 1, a>0
можно использовать для быстрого вычисления квадратного корня из а, так как элементы последовательности при увеличении і очень быстро приближаються к корню из а. Для а=2 начало этой последовательности выглядит так
а(1) = 1
а(2) = 1.5
а(3) = 1.4166666667
а(4) = 1.4142156863
а(5) = 1.4142135624
Составьте программу вычисления квадратного корня.

Тема: Сложные типы данных, множества.
задача3:
Определить и вывести на экран множество символов входящих одновремено в имя, отчество и фамилию, введенные с клавиатуры.

Тема: Динамическая память.
задача4:
Напишите программу выбора наибольшего из четырех введенных с клавиатуры чисел.

задача5:
Напишите программу заполнения и сортировки по столбцам массива 4х5. Вывести содержимое массива до и после сортировки.

зарание спасибо

[BBB]

1.

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

function f (s: string) : integer;
var iLoop : integer;
      iRes : integer;
begin
  iRes := 0;
  for iLoop := 1 to Length (s) do
    if (s [iLoop] = ' ') then
       iRes := iRes + 1;
  f := iRes;
end;

function max (i1, i2 : integer) : integer;
begin
   if (i1 >= i2) then
     max := i1
   else
     max := i2;
end;

[Хыиуду]

#3. Взять любую из строк, пройти по ней, для каждого символа функцией pos проверить, есть ли такой в двух других строках, если да - вывести
№№ 4,5 - раздел "Алгоритмы"

[Игорь Акопян]

читаем правила раздела, впоследствии тему с таким названием удалю не заходя