Написать программы для решения задач

1. Написать программы для решения задач

2. №1 (12) В углу прямоугольного двора размером 50х30 стоит прямоугольный дом размером 20х10. Подсчитать площадь дома, свободную

площадь двора и длину забора. Примечание: в углу, где дом,
забора нет.

3. №2 (13) Радиус окружности равен 800. Вычислить длину окружности и площадь круга. Результаты печатать с 5 знаками после

десятичной точки.
VAR r :Integer;
l, s :Real;
BEGIN
r := 800;
l := 2 * pi * r;
s := pi * r * r;
WriteLn (l :15:5, '
ReadLn
END.
{r-радиус окружности}
{l-длина окружности, s-площадь круга}
', s:15:5);

4. №3 (14) Автомобиль 3 часа ехал со скоростью 80 км/час и 2 часа со скоростью 90 км/час. Вычислить среднюю скорость автомобиля

(она равна суммарному пути, деленному на
суммарное время).
VAR t1, t2,
{t1-время на первом отрезке, t2-на втором}
v1, v2,
{v1-скорость на первом отрезке, v2-на втором}
s1, s2
:Integer; {s1-первый отрезок пути, s2-второй}
sredn_skorost :Real;
BEGIN
t1:=3;
t2:=2;
v1:=80; v2:=90;
s1:=v1*t1;
{путь равен скорость умножить на время}
s2:=v2*t2;
sredn_skorost := (s1+s2)/(t1+t2);
WriteLn (sredn_skorost :10:3);
ReadLn
END.

5. №4 (15) Длина одной стороны треугольника равна 20. Длины двух других сторон будут известны только после запуска программы на

выполнение.
Вычислить периметр треугольника.
VAR a,b,c, perimetr :Integer; {a,b,c - стороны треугольника}
BEGIN
a:=20;
WriteLn ('Введите длины двух сторон треугольника');
ReadLn(b,c);
perimetr := a+b+c;
{периметр - это сумма сторон}
WriteLn ('Периметр треугольника равен ' , perimetr);
ReadLn
END.

6. №5 (16) В компьютер вводятся путь, пройденный телом, и скорость тела. Найти время движения тела.

VAR t, v, s :Real;
{t-время, v-скорость, s-путь}
BEGIN
WriteLn ('Введите путь в метрах и скорость в м/с');
ReadLn(s,v);
t:=s/v;
WriteLn ('Время = ', t :6:3, ' сек');
ReadLn
END.