Ответы
Ответ дал:
0
у меня есть решение на visual basiс. Вас устроит?
Ответ дал:
0
устроит.
Ответ дал:
0
program triangle;
var a,b,c,p: real;
begin
writeln('Введите стороны треугольника');
read(a,b,c);
writeln('a=',a,' b=',b,' c=',c);
if (a<b+c) and (b<a+c) and (c<a+b) then
begin
p:=a+b+c;
write('Да, существует. Периметр = ',p);
end
else write('Нет, не существует.');
end.
var a,b,c,p: real;
begin
writeln('Введите стороны треугольника');
read(a,b,c);
writeln('a=',a,' b=',b,' c=',c);
if (a<b+c) and (b<a+c) and (c<a+b) then
begin
p:=a+b+c;
write('Да, существует. Периметр = ',p);
end
else write('Нет, не существует.');
end.
Ответ дал:
0
Добавил в программу подсчёт периметра.
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад