Даю пример на 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;
}
680
программу я раньше уже приводила
n = 0
kolvo_trevog = 14
for bin in 1..2**30-1
s = bin.to_s(2)
next if s.include?("11")
i = 0
for j in 0..s.size
i += 1 if s[j] == "1"
end
next if i != kolvo_trevog
s = ("000000000000000000000000000000" + s)[-30..-1]
n += 1
p [s, i, n] if n % 100 == 0
end
p [s, i, n]
Program ostatok2;
Var A, B, O: integer;
Begin
Write ('Введите число А=');
Read (A);
Write ('Введите число B=');
Read (B);
If B mod A = 0 then
Write ('Число А является делителем числа В')
else
Write ('Число А не является делителем числа В');
end.
3 кбайт = 3000 байт
1536:40=38,4 - байт за 1 миллисекунду
38,4*3000=115200 миллисекунд
1.Может
2.Не может
-_____________________________________-