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

Знамениты размеры 2-ух ящиков(длина, ширина, вышина) .Определить объем какого ящика больше . Размеры наименьшего ящика увеличить в два раза и опять сопоставить объемы ящиков . Вывести на экран больший объем. Составить программку в паскале.

Знамениты радиусы и координаты центров 2-ух окружностей таких , что одна окружность не содержит снутри иной . Найти пересекаются ли эти окружности (расстояние меж центрами должно быть меньше суммы радиусов). Обусловит площадь большей окружности. Составить программу в паскале

Задать свой вопрос
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 gt; result2)

int anotherresult;
anotherresult = result2 * 2;
goto obratno;

if (result lt; result2)

int anotherresult2;
anotherresult2 = result * 2;
goto obratno;








, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт