2.Собери скрипт акулы для проекта «Подводный мир» по заданным блокам. Используй сцен
скрипп рыбы в следующие условия:
А) При нажатии «Когда щелкнуть по », проект запускается.
В) Акула плывет по горизонтали, меняя свой костюм.
C) Одновременно с акулой проплывает краб и исчезает.
Пример
Срипт для краба
th
кога щелкнут по
показател
nepem s xi €160 yi €150
робернуть в направление 90
ждать о секунд
повернуть в напролек
100
плы» 3 секунд оточку з 240
4180
спрятаться
No
СКРИПТЫ
СКРИПТ для АКУЛЫ
со все
едa0.2 секунд
дw 20 шагов
Перейти в х
-200 у. -22)
повернуть
направлении 909
следующий костюм
повторить 25
когда щелкнут по

👇

Открыть все ответы

Ответ:

almaz2008

12.05.2022

1. Живая природа – это все то, что не создано руками человека, и мы сами.
2. Живая и неживая природа тесно связаны между собой. Солнце служит источником тепла и света для живых существ. А еще живым существам необходим воздух и вода.
3. Если растения не поливать, а животных не кормить и не ухаживать за ними, они могут погибнуть. Все живые организмы дышат, пьют воду, питаются, размножаются.
4. Любой живой организм способен к росту и развитию. Например, из семечка вырастает дерево, из младенца – взрослый человек

4,4(76 оценок)

Ответ:

Мамиами

12.05.2022

Вот пример вычисления факториала числа 200

const
n=1000; {максимальное количество цифр в числе}

type
big=record
    v:array[1..n] of byte; {массив с цифрами числа}
    m:integer {количество цифр в числе}
end;

function Str2Big(s:string):big;
{Переводит строковое представление в big}
var
i,n,k,err: integer;
r:big;
begin
n:=Length(s);
r.m:=n;
for i:=1 to n do
begin
    Val(s[i],k,err);
    r.v[i]:=k
end;
Str2big:=r
end;

function Big2Str(p:big):string;
{Переводит представление big в строковое}
var
i,n:integer;
c,s:string;
begin
s:='';
n:=p.m;
for i:=1 to n do
begin
    Str(p.v[i],c);
    s:=s+c
end;
Big2Str:=s
end;

function TruncBig(a:big):big;
{Усекает незначащие нули}
var
i,p,n:integer;
r:big;
begin
n:=a.m;
p:=0;
while (p<n) and (a.v[p+1]=0) do p:=p+1;
for i:=1 to n-p do r.v[i]:=a.v[i+p];
r.m:=n-p;
TruncBig:=r
end;

function MultBig(a,b:big):big;
{Возвращает произведение чисел типа big}
var
i,j,k,m,n,s:integer;
r:big;
begin
m:=a.m; n:=b.m;
for i:=m to m+n do r.v[i]:=0;
r.m:=m+n;
for j:=n downto 1 do
begin
    if b.v[j]=0 then r.v[j+m+n-1]:=0
    else begin
      k:=0;
      for i:=m downto 1 do
      begin
        s :=a.v[i]*b.v[j]+r.v[i + j]+k;
        r.v[i+j]:=s mod 10;
        k:=s div 10
      end;
      r.v[j] := k
    end
end;
MultBig:=TruncBig(r);
end;

var
i:integer;
s:string;
bi,bs:big;
begin
bs:=Str2Big('1');
for i:=1 to 200 do begin
    Str(i,s);
    bi:=Str2Big(s);
    bs:=MultBig(bs,bi);
    end;
s:=Big2Str(bs);
Writeln(s)
end.

Результат
788657867364790503552363213932185062295135977687173263294742533244359449963403342920304284011984623904177212138919638830257642790242637105061926624952829931113462857270763317237396988943922445621451664240254033291864131227428294853277524242407573903240321257405579568660226031904170324062351700858796178922222789623703897374720000000000000000000000000000000000000000000000000

4,8(52 оценок)

Это интересно:

Хобби-и-рукоделие

17.07.2021

Игра в бочче: правила и секреты успеха...

Финансы-и-бизнес

20.08.2021

Как заработать быстрые деньги онлайн: несколько простых и эффективных способов...

Образование-и-коммуникации

01.10.2020

Как подготовиться и успешно выступить с речью...

01.04.2023