Решите!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Задача №1. Периметр треугольника равен Р, длина одной стороны равна А, а другой - В. Найти длину третьей стороны.
Задача №2. Длина стороны треугольника равна А, периметр равен Р, длины двух других сторон равны между собой. Найти эти длины.
Ответы на вопрос
Ответил DmitryLeal
6
Попробуй:
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
7
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.
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.
Новые вопросы
Русский язык,
1 год назад
Английский язык,
1 год назад
Русский язык,
1 год назад
Математика,
1 год назад
Литература,
7 лет назад