3 небольших задания

[Hoogian]

Доброго времени суток, уважаемые программисты. Прошу помощи в решении 3 задач, надеюсь вы мне поможете. Сам я от программирования нереально далек, поэтому искринне надеюсь на вашу помощь.

1) Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов
2) Напечатать заданный файл удалив все знаки «+», если непосредственно за ними следует цифра (не совсем понимаю данное задание)
3) Дана вещественная матрица 20х30. Упорядочить ее строки по неубыванию их наибольших элементов

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

[DM_bite]

1

program Tr;
var x,y,z,S,P: integer;
   begin
   ReadLn(x,y);
    z:= round(sqrt(sqr(x)+sqr(y)));
    WriteLn(z);
    P:= x+y+z;
    WriteLn('P=',P);
    WriteLn('S=',sqrt(P div 2 *(p-x)*(p-y)*(p-z)));
    ReadLn;
    end.

[Hoogian]

благодарю, надеюсь 2 и 3 задачи также будут решены.

[Hoogian]

ребят, ну что, неужели никто не поможет (((((((

[DM_bite]

вот я 2 тоже не совсем понимаю... Считать файл и с ним проделать это или с простой строкой?

[Hoogian]

со строкой я думаю

[DM_bite]

Ну если со строкой, то:

program Xd;
var i: integer;
    s: string;
    begin
    ReadLn(s);
    for i:= 1 to length(s)-1 do
     begin
     if (s[i]='+') and (s[i+1] in ['0'..'9']) then
      begin
       Delete(s, i, 1);
       end;
       end;
       WriteLn(s);
       ReadLn;
       end.

[Hoogian]

DM_bite, Вы мой бог!! =)))
давайте и уж третью, что Вам стоит =)

[DM_bite]

Спасибо, конечно, только вот я не совсем пойму, что значит

по неубыванию
их наибольших элементов

?

[__STDC__]

Видимо в каждой строке нужно найти наибольший элемент и расположить строки в порядке неубывания этих элементов...