Question

Решите!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Задача №1. Периметр треугольника равен Р, длина одной стороны равна А, а другой - В. Найти длину третьей стороны.
Задача №2. Длина стороны треугольника равна А, периметр равен Р, длины двух других сторон равны между собой. Найти эти длины.

Answer 1

Попробуй:

1:program a1;

var P,A,B,C: integer;

begin

write('p='); read(p);

write('A='); read(A);

write('B='); read(B);

C:=p-(A+B);

writeln('C=',C)

end.

2:program a2;

var P,A:integer;

    B:real;

begin

write('p='); read(p);

write('A='); read(A);

B:=(p-A)/2;

writeln('B=',B:5:3)

end.

Answer 2

1 var p,a,b,c:integer;
begin
readln(p,a,b);
c:= p-(a+b);
write(c);
end.
2 var a,p,s:integer;
b:real;
begin
readln(a,p);
s:= p-a;
b:= 0.5*s;
writeln(b:0:0);
write(b:0:0);
end.