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

Ответ

Автор - DmitryLeal

Попробуй:

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.

Ответ

Автор - alexooooon

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.

Предыдущий вопрос Следующий вопрос

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

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.