Решить задачи с помощью линейных алгоритмов !
Заранее спасибо )

1

Ответы и объяснения

Лучший Ответ!
2014-03-19T08:59:34+04:00
№3

program fofgogjoj;
var
a,b,c,S,P:real;
begin
Writeln('Введите длину катета a');
Readln(a);
Writeln('Введите длину катета b');
Readln(b);
c:=sqrt(a*a+b*b);
P:=a+b+c;
S:=(1/2)*a*b;
Writeln('P=', P:0:2);
Writeln('S=', S:0:2);
end.