Зверски, конечно, но максимум, что я придумал - снизить необходимый объём памяти... Впрочем, не актуально, ибо 256МеБ позволяют. В общем, вот:)
var
a: array [1..1000000] of integer;
b: array [1..3] of integer;
i, j, t, n: integer;
begin
assign(output, 'task1.out'); rewrite(output);
assign(input, 'task1.in'); reset(input); readln(n);
for i := 1 to n do
begin
read(a[i]);
write(' ');
end;
close(input);
for i := 1 to n do
for j := 1 to n do
for t := 1 to n do
if not ((i in [j, t]) or (j in [i, t]) or (t in [i, j])) then
if (b[1] * b[2] * b[3] < a[i] * a[j] * a[t]) then
begin
b[1] := a[i];
b[2] := a[j];
b[3] := a[t];
end;
writeln(b[1], ' ', b[2], ' ', b[3]);
end.
const pi = 3.14159265358;
var
m,n : integer;
begin
readln(m,n);
if ((m/n - pi) < (n/m - pi)) then
writeln (2 * m)
else
writeln(2*n);
end.
Возможно туплю, ибо поздно уже. Но у меня получилось так
Так короче мне один мальчик поёт говорил что такое программное обеспечение виды программного обеспечения на какие группы делится прикладное программное отключение я это говорила потом тебе сравните программы драйверы и утилиты оболочки написано да ну это 4 дней сравните программа как ты можешь ставить усилитель или драйверы посмотреть драйверы драйверы это программы необходимые для работы разных устройств подключенных компьютер значит что ты понимаешь смысл и атрофия что такое ещё эта программа тоже все программы необходимые для работы разных устройств как ты понимаешь подключенный к кому тогда значит а это программа которая для работы разных для работы разных что значит этом drivers может подключить платежную систему к интерфейсу программное обеспечение к любой вот графики альганика графика любой к компьютеру как клавиатуру ты можешь кусачка подключенных компьютеров значит ты пишешь в смысле значит вы так пишешь драйв оболочкой drivers drivers может под драйвере могут подключиться к любой сфере утилиты утилиты я вообще не знаю но я тебе говорю говорят подряд royal утилиты то что такое что-то пишет что такое утилиты потом свое мнение хорошо
Я начиная от конца текста рассуждал.
Браун-альта,кларнет
Смит-флейта,гобой
Вессон-труба,скрипка