Помогите по PASCAL

[LAM 757]

Доброго времени суток уважаемые програмысты! Тут сложилась такая печальная ситуация,сетра очень сильно попросила помочь решить несколько задачек,оторые ей сдавать уже в понедельник,а я сам не силён в этом! Если есть у кого возможность помогите решить несколько задачек плиз буду очень признателен!!!!!!!!!!


1.Треугольник задан координатами вершин (x1,y1),
(x2,y2) и (x3,y3). Найти периметр треугольника.

2.Даны значения a,b,c (a!=0). Определить, имеет ли уравнение a*x^2+b*x+c=0 действительные корни.Если нет,то выдать соответствующее сообщение.

3.Дано целое число K. Найти знакочередующуюся сумму цифр числа К. (Пусть запись К в десятичной системе есть a[n]...a[2] a[1] a[0];найти a[0]+a[1]+a[2]+...+a[n]).

4.Даны действительные числа s,t. Получить
g(1.2, s)+g(t, s)-g(2s-1,st),
где
a^2+b^2
g(a,b) = ──────────────---
a^2+2*a*b+3*b^2+4

5.Дана действительная матрица размера m х n. Определить число отрицательных элементов в каждой строке.

Надеюсь я прошу не силно много

[LAM 757]

Сори за мой корявый Русский!

[russian-stalker]

2.

program Project2;
var
a,b,c:real;
begin
  read(a,b,c);
  if sqr(b)-4*a*c<0 then
  writeln('korney net');
end.

[ОДИНОЧЕСТВО В СЕТИ]

а где ж она знакочередующаяся?

a[0]+a[1]+a[2]+...+a[n]

5

for i:=1 to n do
begin
k:=0;
for j:=1 to m do
if a[i,j]<0 then inc(k);
writeln(k);
end;

1

p:=sqrt(sqr(x1-x2)+sqr(y1-y2))+sqrt(sqr(x2-x3)+sqr(y2-y3))+sqrt(sqr(x1-x3)+sqr(y1-y3));

4

function g(a,b:real):real;
  begin
  g:=(a*a+b*b)/(a*a+2*a*b+3*b*b+4);
  end;
begin
...
res:=g(1.2, s)+g(t, s)-g(2*s-1,s*t);
...
end.

3

k:=0;
s:=0;
 while ( x<>0 ) do 
 begin
 inc(k);
if  k mod 2 <>0  then
   s := s + (x mod 10)
else
  s := s -(x mod 10);
   x := x div 10;
 end;

[russian-stalker]

1.

program Project2;
var
p,x1,x2,x3,y1,y2,y3:real;

begin
  p:=0;
  read(x1,x2,x3,y1,y2,y3);
  p:=sqrt(sqr(x1-x2)+sqr(y1-y2))+sqrt(sqr(x2-x3)+sqr(y2-y3))+sqrt(sqr(x3-x1)+sqr(y3-y1));
  writeln('P=',p);
end.

[LAM 757]

Всем большое спасибо!!!!!