Задачи
Найти массу x литров молока, если известно, что плотность молока р кг/м3. Пример: x=7 л, p=1030 кг/м3. Ответ: 7,21 кг.
Найти площадь равнобочной трапеции с основаниями а и b и углом при большем основании равным x. Пример: a=6, b=5, x=45°. Ответ: 5,5.
Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. Извне вводятся цена одной тетради Ct, одной обложки Cbи количество тетрадей Kt. Пример: Ct=1.2, Kt=15, Cb=0,2. Ответ: 21.
Написать программу вычисления силы тока в электрической цепи. Извне вводятся напряжение U и сопротивление R. Пример: U=10, R=15. Ответ: 0,6667.
Составить программу, которая поменяет местами значения введенных переменных x и y: а) используя дополнительную переменную; б)* не используя дополнительной переменной.

#define _CRT_SECURE_NO_WARNINGS
#include <iostream>

using namespace std;

int main()
{
	setlocale(LC_ALL, "Russian");
	double x, p;
	scanf("%lf %lf", &x, &p);
	x = x / 1000;
	double v = x * p;
	printf("%lf кг", v);

	system("pause");
	return 0;
}


#define _CRT_SECURE_NO_WARNINGS
#include <iostream>

using namespace std;

int main()
{
	setlocale(LC_ALL, "Russian");
	double a, b, x, h;
	scanf("%lf %lf %lf", &a, &b, &x);
	h = (a - b) * tan(x) / 2;
	x = (a + b) * h / 2;
	printf("%lf", x);

	system("pause");
	return 0;
}

var x,p:real;
begin
readln(x,p);
x:=x*p/1000;
writeln(x, 'кг');
end.

var a,b,x:real;
begin
readln(a,b,x);
x:=(sqr(a)-sqr(b))*tan(x)/2;
writeln(x);
end.

var a,b,c:real;
begin
readln(a,b,c);
c:=a*b + c*b;
writeln(c);
end.