Задание 1. Разработать программу на Python. Даны длины сторон треугольника, определить вид треугольника и его площадь. Выполнить контроль вводимых чисел.

1. Разнасторонний треугольник

2. Равнобедренный треугольник

3. Равносторонний треугольник

Ограничения:

- три числа не могут быть определены как стороны треугольника;

- если хотя бы одно из них меньше или равно 0;

- сумма двух из них меньше третьего.

👇

Увидеть ответ

Ответ:

SoktoevTimur

10.03.2022

Объяснение:

a = int(input())

b = int(input())

c = int(input())

p = (a+b+c)/2

if a <= 0 or b <= 0 or c <= 0:

print("Неверные стороны треугольника")

elif (a+b) < c or (a+c) < b or (c+b) < a:

print("Неверные стороны треугольника")

else:

s = (p*(p-a)*(p-b)(p-c))**0.5 # считаем площадь по трем сторонам

print("Площадь: ", s)

if a == b == c:

print("Равносторонний треугольник")

elif (a == b) or (a == c) or (b == c):

print("Равнобедренный треугольник")

else:

print("Разносторонний треугольник")

4,6(31 оценок)

Открыть все ответы

Ответ:

а6пг

10.03.2022

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

procedure pSum(a,b:integer; var r:integer);
begin
r:=a.To(b).Sum
end;

function fSum(a,b:integer):=a.To(b).Sum;

begin
var (a,b):=ReadInteger2('Начало и конец интервала:');
var c:integer;
pSum(a,b,c);
Writeln('Сумма при процедуры: ',c);
Writeln('Сумма при функции : ',fSum(a,b))
end.

Пример
Начало и конец интервала: 3 28
Сумма при процедуры: 403
Сумма при функции : 403

Велосипедист на тренировке в первый день проехал 19 км за 54 минуты. В каждый последующий день он проезжал этот же путь на 2 минуты быстрее, чем в предыдущий. Найти среднюю скорость велосипедиста, которую он показал, тренируясь неделю.

Решение
Средняя скорость будет равна отношению всего пройденного пути к затраченному времени. Путь за неделю составит 19×7 км.
Время может быть найдено как 54+(54-2)+(54-4)+...

function T(a0,h:real; k:integer):real;
begin
Result:=0;
var ts:=a0;
loop k do begin
Result+=ts; ts-=h
end;
Result/=60
end;

procedure Phisics(n:integer; t0,dt,s1:real);
begin
var s:=n*s1;
var v:=s/T(t0,dt,n);
Writeln('Средняя скорость ',v,' км/час')
end;

begin
var n:=ReadInteger('Количество дней:');
var s:=ReadReal('Длина трека, км:');
var (t0,th):=ReadReal2('Время в первый день и величина улучшения, мин:');
Phisics(n,t0,th,s)
end.

Результат
Количество дней: 7
Длина трека, км: 19
Время в первый день и величина улучшения, мин: 54 2
Средняя скорость 23.75 км/час

4,4(36 оценок)

Ответ: