Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0, еслиx≤0x, если01. (y:3:0) Запусти программу и введи значение x=19.

program uslovie;

var x,y:real;

begin

   readln(x);

   if x<=0 then y:=0 else if x>1 then y:=x*x else y:=x;

   writeln(y:3:0)

end.

Попробуй

Объяснение:

(см. объяснение)

Объяснение:

Решение задачи на PascalABC.NET:

##

var a: sequence of integer := ReadArrInteger(ReadInteger).Where(x->x>0);

if(a.Count = 0) then print('NO')

else print(a.Sum/a.Count);

Решение задачи на PascalABC:

var a, N, i, sum, k: integer;

begin

 sum:= 0;

 k:= 0;

 readln(N);

 for i:= 1 to N do

 begin

   read(a);

   if(a>0) then

   begin

     k:= k+1;

     sum:= sum+a;

   end;

 end;

 if(k=0) then writeln('NO')

 else writeln(sum/k);

end.

Рекомендованное решение приведено первым, однако, как мне кажется, второе вам будет понятнее.

Задание выполнено!

Кибернетика

Объяснение:

В середине века выдающийся американский учёный Норберт Винер (1894−1964) , изучавший различные технические и биологические системы, установил, что управление в них осуществляется по общей схеме. Винер считается основоположником науки об управлении — кибернетики.

Существует большое количество различных определений понятия «кибернетика», однако все они сводятся к тому, что кибернетика — это наука, изучающая общие закономерности строения сложных систем управления и протекания в них процессов управления. Так как любые процессы управления связаны с принятием решений на основе получаемой информации, то кибернетику часто определяют ещё и как науку об общих законах получения, хранения, передачи и преобразования информации в сложных управляющих системах.