Дайте відповіді на запитання: 1. Як називається трансформація в Blender, використання якої дає можливість
створювати нові грані, вершини і ребра?
2. Яка "гаряча" клавіша використовується для трансформації Extrude?
3. Який буде результат, якщо у куба виділити 2 протилежні грані, та видавлючати
їх в режимі Extrude individual?
"Яспар-Дюрюмгщмт" - как раз потенциальный кандидат на "Санкт-Петербург"
составим правила переноса
я->с
с->а
п->н
а->к
р->т
д->п
ю->е
м->р
г->б
щ->у
р->м
т->г
на основе этого можно расшифровать часть послания
* *а*тра уе**а* * Санкт-Петербург на **е не*е**. пар***: бургун***
очевидно что пар*** - пароль, а *а*тра - завтра.
ы->о
ч->л
з->ь
у->з
ц->в
учитывая это:
* завтра уез*а* в Санкт-Петербург на *ве не*ел*. Пароль: Бургун***.
очевидно что фраза - "Я завтра уезжаю в Санкт-Петербург на две недели. Пароль: Бургундия."
program raf105;
const
n1 = 5;
n2 = 8;
var
a: array[1..n1,1..n2] of integer;
i,j: integer;
begin
for i:=1 to n1 do
begin
writeln;
a[i,1]:= 1+i;
write(a[i,1]:2,' ');
for j:=2 to n2 do
begin
a[i,j]:= a[i,j-1]+1;
write(a[i,j]:2,' ');
end;
end;
end.
№2program raf105;
const
n = 9;
var
a: array[1..n,1..n] of integer;
i,j: integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
if j = i
then if i <= 3
then a[i,j]:= 10-j
else a[i,j]:= 10-j-1
else a[i,j]:= 0;
write(a[i,j],' ');
end;
end;
end.
№3program raf105;
const
n = 9;
var
a: array[1..n,1..n] of integer;
i,j,c: integer;
begin
c:= -4;
for i:=1 to n do
begin
if (i<>1) and (i<>9)
then c:= c+1;
writeln;
for j:=1 to n do
begin
if (j=1) or (j=9) or (i=1) or (i=9)
then a[i,j]:= 1
else if (j = 5 - abs(c)) or (j = 5 + abs(c))
then a[i,j]:= 1
else a[i,j]:= 0;
write(a[i,j],' ');
end;
end;
end.
№4program raf105;
const
n1 = 10;
n2 = 9;
var
a: array[1..n1,1..n2] of integer;
i,j: integer;
begin
for i:=1 to n1 do
begin
writeln;
for j:=1 to n2 do
begin
if i mod 2 <> 0
then a[i,j]:= 1
else a[i,j]:= 0;
write(a[i,j],' ');
end;
end;
end.
PascalABC 3.4.2