Question

Алгоритм вычисления площади и периметра треугольника обычного по известным длинам трех сторон

Answer 1

program pr;

var

i:integer;

procedure fiil();

var a,b: integer;

f:file of integer;

begin

assign(f,'c:\input.txt');

rewrite(f);

writeln('Введите длину прямоуг (а): ');

readln(a);

writeln('Введите ширину прямоуг (b): ');

readln(b);

write(f,a,b);

close(f);

end;

procedure show();

var

f:file of integer;

v:text;

s,p,a,b:integer;

begin

assign(f,'c:\input.txt');

reset(f);

while not eof (f) do begin

read(f,a,b);

end;

assign(v,'c:\output.txt');

rewrite(v);

S:=a*b;

P:=(a+b)*2;

writeln('p=',p);

writeln('s=',s);

write(v,'p=',p);

write(v,'s=',s);

close(f);

close(v);

end;

begin

fiil();

show();

end.

Answer 2

Ответ:

и так же в площади