3 задачи на процедуры и функции

[Rise]

Помогите пожалуйста написать на Паскале 3 програмки. Желательно, наиболее простым способом. Сам все не могу понять процедуры и функции.

1) Описать функцию IsPower5(K) логического типа, возвращающую TRUE, если целый параметр K (K > 0) является степенью числа 5, и FALSE в противном случае. С ее помощью найти количество степеней числа 5 в наборе из 10 положительных чисел.

2) Описать процедуру Add(D,K), добавляющую к целому положительному числу K слева цифру D (D - входной параметр целого типа, лежащий в диапазоне 0-9, K - параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K слева данные цифры D1 и D2, выводя результат каждого добавления.

3) Даны две дроби a/b и c/d. Написать программу для умножения дроби на дробь. Результат должен быть несократимой дробью. Для сокращения дробей (и данных и результата) нужно найти НОД (наибольший общий делитель) числителя и знаменателя. Нахождение НОД двух чисел оформить в виде процедуры.

[maladoy]

к 3 задаче

procedure Nod(var a:integer;var b:integer;var del:integer);
var
ost:integer;
begin
repeat

ost:=a mod b;
a:=b;
b:=ost;
if b<>0 then del:=ost;

until ost=0 ;
end;

[Sazary]

К первой задаче:

function IsPower5(K : longint) : boolean;
 var s : longint;
 begin
 s := 1;
 while s<=K do
  begin
  s := s*5;
 if s=K then
   begin
   IsPower5:=true;
   exit;
   end;
  end;
 IsPower5 := false;
 end;

Ко второй:

procedure add(D : integer; var K : longint);
 var i : integer;
 tK,st : longint;
 begin
 i := 0;
 tK := K;
 while tK>0 do
  begin
  tK := tk div 10;
  inc(i);
  end;
 st := 1;
 while i>0 do
  begin
  st := st*10;
  dec(i);
  end;
 K := K + D*st;
 end;

[valetik]

К 1-ой задаче

function IsPower5(k: Integer): Boolean;
begin
   If k = 1 then
      begin
         IsPower5:=True;
         exit;
      end;

   If (k mod 5)=0 then IsPower5:=IsPower5(k div 5)
   else IsPower5:=False;
end;

Я только не понял второй части задания. Как можно с помощью этой же функции получить степень 5? Ведь она возвращает ТОЛЬКО ОДИН параметр - логический. И он никак нам не может сказать о степени 5-ки...

[Sazary]

valetik Думаю, имеется в виду, что дано 10 чисел, и нужно сказать сколько из них являются степенью 5.

[NeshSoft]

ко второй части первого задания:

function twopart:integer;
var i:integer;
begin
result:=0;
for i:=1 to 10 do if IsPower5(mas[i]) then inc(result);
end;

где mas - это глабально обьявленный массив с 10 числами (mas: array[1..10] of integer;

[Горе программист]

Помогите написать задачу на процедуру:
Дано целое Мбвещественные векторы, {x[i]} 1=1,2,...,M+5; j=1,2,....,50.
У вектора с наименьшим числом отрицательных компонент, все компоненты увеличить на 0.5; если оба вектора имеют одинаковое число,
отрицательных компонент, то по указанному правилу преобразовать вектор Х. И как нибудь попроше, т.к. процедуру я не поняла.