Добрый день! Допустим, у меня есть файл 3D-модели obj или stl, я хочу сделать 3D-анимацию для этой модели. Подскажите специальные программы для этого (можно платные)

Uses crt;
function
Conv(x:byte):string;{функция преобразования чисел в строку(маска вывода)}
var
 s,t:string;
beginstr(x,t);{преобразуем число в строку}
if x=0 then s:='00'{если это ноль}else
if (x>0)and(x<=9) then s:='0'+t
{если однозначное число}
else s:=t;{двухзначное число}
Conv:=s;
end;
var ch1,mn1,sc1:byte;{начальное время}   
 chd,mnd,scd:byte;{добавленное время}   
chr,mnr,scr:byte;{результат}   
mn,ch:byte;{добавление 1 к минутам и часам, если секунд или минут >60}
begin
clrscr;
writeln('Vvedite nachalnoe vremya:');
write('  Chasy=');
readln(ch1);
write('  Minuty=');
readln(mn1);
write('  Secundy=');
readln(sc1);
writeln('Vvedite pribavlennoe vremya:');
write('  Chasy=');
readln(chd);
write('  Minuty=');
readln(mnd);
write('  Secundy=');
readln(scd);
scr:=(sc1+scd) mod 60;
mn:=(sc1+scd)div 60;
mnr:=(mn1+mnd+mn) mod 60;
ch:=(mn1+mnd+mn) div 60;
chr:=(ch1+chd+ch) mod 24;
clrscr;writeln('Nachalnoe vremya');
writeln(Conv(ch1),':',Conv(mn1),':',Conv(sc1));
writeln('vremy pribavlenia');
writeln(Conv(chd),':',Conv(mnd),':',Conv(scd));
writeln('konechnoe vremya');
writeln(Conv(chr),':',Conv(mnr),':',Conv(scr));
readkey;
end.

Дано:

В коробке меньше 9-ти, но больше 3-х шаров.

Согласно условию задачи, количество шаров — множество чисел от 3 (не включительно) до 9 (не включительно), следовательно ответом может быть любое число из этого промежутка. Подходит только вариант D) 5.

ответ: D) 5.

------------------------

Второй вариант решения

Начертим координатную прямую, укажем точки 3, 9 (выколотые, потому что неравенство строгое) и покажем графически, чему принадлежит x (за икс возьмём количество шаров в коробке).

x ∈ (3;9) или 3 < x < 9. Значит, ответ — D) 5 шаров.

ответ: D) 5