Решение нескольких задач!

[Net1ka]

Добрый день, прошу помочь решить мне эти задачи.. У самой толком справиться никак не получается.

[alexcoder]

Обращайтесь. Контакты ниже.

[VIK_aka_TOR]

пишите... сделаем...
icq: 554461851
e-mail: vik.aka.tor@gmail.com
или же выкладываем свои наработки... будем ПОМОГАТЬ...

[Mad_Cat]

3)

var a:integer;
begin
for a := 1 to 12 do
writeln((3*a+4)/(a*a-5*a-9));
end.

[VIK_aka_TOR]

1.

max := chislo mod 10;
chislo := chislo div 10;
while chislo > 0 then
  begin
   if max < chislo mod 10 then
     max := chislo mod 10;
   chislo := chislo div 10;
  end;

4.

var
prev, med, next : real;
i:= integer;
begin
prev := 0;
med := 5/8;
next := med/2 + 3 * prev/4;
writeln(' 1 - ', prev);
writeln(' 2 - ', med);
writeln(' 3 - ', next);
for i:= 4 to 15 do
  begin
  prev := med;
  med := next;
  next := med/2 + 3 * prev/4;
  writeln(i:2,' - ', next);
  end;
readln;
end.