Question

Известны размеры двух ящиков(длина, ширина, высота) .определить объем какого ящика больше . размеры меньшего ящика увеличить в два раза и снова сравнить объемы ящиков . вывести на экран больший объем. составить программу в паскале. известны радиусы и координаты центров двух окружностей таких , что одна окружность не содержит внутри другой . определить пересекаются ли эти окружности (расстояние между центрами должно быть меньше суммы радиусов). определит площадь большей окружности. составить программу в паскале

Answer 1

Даю пример на c#, авось придумать код на паскале, т.к сам онли в c#:
int perva, pervb, pervv;
int vtora, vtorb, vtorv;
Console.WriteLine("Введите длину первого ящика");
perva = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите ширину первого ящика");
pervb = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите высоту первого ящика");
pervv = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите длину второго ящика");
vtora = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите ширину второго ящика");
vtorb = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите высоту второго ящика");
vtorv = Convert.ToInt32(Console.ReadLine());
int result;
int result2;
result = perva * pervb * pervv;
result2 = vtora * vtorb * vtorv;
obratno:
if (result > result2)
{
int anotherresult;
anotherresult = result2 * 2;
goto obratno;
}
if (result < result2)
{
int anotherresult2;
anotherresult2 = result * 2;
goto obratno;
}