Все расписано на фото, про знаки препинания не забывай
Var x,y:integer;
begin
read(x);//число
while(x <>0) do begin
if x mod 10 mod 2=1 then y:=y+x mod 10;
x:=x div 10;
end;
writeln(y);
<span>end.</span>
Я думаю,что,когда они появились,кто их придумал,в какой ситуации они были придуманы и все такое:)
Var a, b, c, d, e : longint;
begin
assign(input, 'D:\Vanya\School\Pascal\Input\input.txt'); reset(input); assign(output, 'D:\Vanya\School\Pascal\Output\output.txt'); rewrite(output); read(a,b,c,d,e); write(a * b *c*d*e);
end.<span>
</span>
1) От хаоса к порядку:
- на водеме водоплавающие птицы перемещаются хаотично, во время сбора и отлета стаи в более теплые места на зимовку происходит переход к порядку - птицы в стаях летят в строго определенном порядке, вожак строго впереди, за ним все остальные перелетные птицы;
- рыбы в течении всего года перемещаются хаотично, во время нереста (например, семги) рыба собираются вместе и перемещается в одном направлении - вверх по течению реки
2) От порядка к хаосу происходит переход во время землетрясения (нарушение жизни растений животных, почв, рельефа и тд), штормов, цунами, ураганов и тд
3) Информационные сигналы: человеческая речь - звуковые сигналы, видео - информационные сигналы для органов зрения - результат обрабатывается в головном мозге
4) Генетическая информация нужна для передачи новым поколениям опыта приспособления живых организмов к окружающей среде, например, цвет кожи для жителей разных климатических поясов.