1) 3D Модель - изображение какого-либо объекта в 3-х мерном пространстве, то есть у которого есть 3 измерения: длина, ширина, высота.
Т.е 3D Моделью может являться буквально все, от модели глобуса , до наручных часов, так как у всех окружающих нас предметов есть длина, ширина и высота.
2) 3D от англ 3-dimentional D-dimentional (х мерный)
Var
x,y:integer;
a:array [1..12] of string;
begin
a[1]:=cock;
..
a[12]:=monkey;
read(x);
y:=(abs(2016-x) )mod 12;
write(a[y]);
end.
Вроде должно работать. Проверить не могу - сижу с телефона
var a:array[1..10]of integer;
i,n1,n2:integer;
s:real;
begin
for i:=1 to 10 do begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/10;
for i:=1 to 10 do begin
if a[i]>s then inc(n1);
if a[i]<s then inc(n2);
end;
writeln('bolshe - ',n1,' menshe - ',n2);
end.
Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.
Var
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
if Pos(s[i],'ABCDabcd')>0 then Delete(s,i,1);
Writeln('Результат: ',s)
end.
Пример
Введите строку: Carlsbad is an affluent seaside resort city
Результат: rls is n ffluent sesie resort ity