Какой ответ будет выведен после выполнения цикла: for x := 1 to 8 do if x mod 7 = 0 then x := x + 1; 2) Какой ответ будет выведен после выполнения цикла: S := 0; for x := 1 to 10 do if x mod 3 = 0 then S := S + x;

1) Какой ответ будет выведен после выполнения цикла:

for x := 1 to 8 do  Подставляем Х от 1 до 8

if x mod 7 = 0  Подставляем сюда Х=1   1  mod 7=0  нет так как mod это остаток от деления 1 mod 7 = 1  условие ложно и следующая строчка работать не будет, значит единственный Х который нам подходит это 7

7 mod 7 = 0 Да

then x := x + 1;   Х:=7+1  X:=8

ответ: 8

2) Какой ответ будет выведен после выполнения цикла:

S := 0;

for x := 1 to 10 do

if x mod 3 = 0    Тут у нас снова mod  и нам подходят только числа 3,6,9

так как они при делении на 3 дают остаток 0

3 mod 3 = 0 да

6 mod 3 = 0 да

9 mod 3 = 0 да

then S := S + x;

S:=0+3 S:=3

S:=3+6 S:=9

S:=9+9 S:=18

ответ: 18

Объяснение:

Это просто прихватизированное понятие.

На деле нейтронные сети ничего общего с мозгами не имеют(это просто алгоритмы) и на данный момент создание искусственного интеллекта невозможно, т.к.

в электротехнике сигнал либо + либо -, а от нейрона к нейрону идут синопсы, их до миллиона у каждого нейрончика из миллиардов в мозгу.

Так вот. Каждый сигнал в нейронном общении закодирован (в реальном мозгу) 24-мя переменными в одном синоптическом пузырьке.

Итого чтобы машинно описать связь двух нейронов между собой нам нужно(возьмем в среднем 500000 синопсов) 500000*24^1000000 информации. Причем не бит(либо 0 либо 1), а двадцатичетверит информации.

Сейчас нейронные сети - либо усовершенствование алгоритма взаимодействия человека и компьютера, либо жулики, распиливающие бабло.

Да и вообще на данный момент эти нейронные сети - что-то на уровне религии.

Всё что делается не жуликами - наращивание мощностей и ничего более

Анимации делать не умею и нечего не знаю вот код:

Объяснение:

program eg;

uses graph,crt;

var

y,x,i,n,d,m,j:integer;

begin

randomize;

detectgraph(d,m);

initgraph (d,m,' \TP\GRAPH');

for i:=1 to 300 do begin

cleardevice;

setcolor(12);

line(150,380-i,150,420-i);

line(170,380-i,170,460-i);

line(190,380-i,190,420-i);

setcolor(5);

for j:=1 to 200 do begin

putpixel(random(300) ,410-j, random(100) );

end;

setcolor(1 );

setbkcolor(15);

rectangle(120,160-i,220,380-i);

line(170,80-i,120,160-i);

line(170,80-i,220,160-i);

circle(170,210-i,35);

if i<100 then begin

line(120,280-i,80,380-i);

line(80,380-i,120,380-i);

line(120,280-i,120,380-i);

line(220,280-i,260,380-i);

line(220,380-i,260,380-i);

line(220,380-i,220,380-i);

end

else begin

delay (10);

end;

readkey;

end;

end.