Это первое задание, на самом деле оно не очень сложное)
К функциональной концепции, тк в генетике происходит воздействие одних объектов на другие, воздействия меняют объекты - например наследственность.
Информация - да имеет контекстный смысл. Например - кран сломался. Один поймет что в квартире водопроводный, другой - кран на стройке, третий еще как то. Если бы при передаче этой информации рядом стоял оромный кран - все было бы ясно как Божий день т.к присутствует контекст стройка, кран...
Var
a, min: integer;
begin
min :=30000;
repeat
readln(a);
if (a mod 3 = 0) and (a < min) and (a <> 0) then
min := a;
until a = 0;
writeln(min);
<span>end.</span>
Var s,null:string;
i:integer;
begin
readln(s);
for i:= 1 to length(s) do
if i mod 2 = 1 then
null:=null+s[i];
writeln(null);
<span>end.</span>