Можно ли следующие объекты считать информационными моделями 1) расписание уроков 2) програсма телевидения 3) рецепт на получение

Можно, т.к. они несут информацию о свойствах чего либо, например рсписание уроков о последовательности уроков; программа телевидения о последовательности телепередач; рецепт на получение лекарства не является инф.моделью. он не отражает свойств в данном случае лекарства.

1.

var a,i,sum: integer;

s: string;

begin

  writeln('введите 4-ёх значное число');

  readln(a);  

  s : = inttostr(a);

  for i : = 1 to s.length do

    if i mod 2 = 1 then

      sum : = sum + strtoint(s[i]);

  writeln('сумма: ',sum);

end.

2.

var n,y: integer;

begin

  writeln('введите число n');

  readln(n);

  if n = 0 then

    y : = 0

  else if n mod 2 = 0 then

    y : = -1

  else if n mod 2 = 1 then

    y : = 1;

  writeln('y = ',y);

end.

Комментарий:

Да условие не до конца дописано, но с таким началом условия скорее всего это задача:

определите значение переменной s после выполнения следующего фрагмента программы: s:= 0; for i:=1 to 9 do  if A[i - 1] < A[i] then begin  s := s + 1; t := A[i];  A[i] := A[i - 1];  A[i - 1] := t  end;

Незачем считать, хотя и можно, проще запустить этот код:

var a: array [0..9] of integer = (1, 2, 4, 3, 5, 6, 8, 7, 3, 4); i, t, s: integer; begin s := 0; for i:=1 to 9 do if A[i - 1] < A[i] then begin s := s + 1; t := A[i]; A[i] := A[i - 1]; A[i - 1] := t end; write(s); end.

Как мы видим, после выполнения данного в условии фрагмента переменная s будет равна 9.