Дайте описание следующих систем как чёрных ящиков: "урок"и "компьютер"

Это что, метод решения показать ? ! ч.я. (с точки зрения ) - метод исследования таких систем, когда вместо свойств и взаимосвязей составных частей системы, изучается реакция системы, как целого, на изменяющиеся условия! что за чем: 1 - анализ условия и определение основных теоретических данных необходимых для исследования (т.е. определений, законов)2 - выбор приборов для исследования3 - сборка электрической цепи  4 - определение параметров цепи по показаниям приборов5 - анализ полученных данных6 - общий вывод7 - сверка полученного результата с заданным конструктором решением8 - анализ ошибочных действий исследователем (если они допущены)ч.я. компьютер - это система, в которой внешнему наблюдателю доступны лишь входные и выходные величины, а структура и внутренние процессы неизвестны ))

Var     a,r: real;     i,l,z: integer;     s: string; begin read(s); l: =length(s); i: =1; r: =0; while (s[i]in['0'..'9'])and(i< l) do     begin     r: =r*10+strtoint(s[i]);     i: =i+1     end; while i< l do     begin     case s[i] of           '+': z: =0;           '-': z: =1;           '*': z: =2;           '/': z: =3;     end;     i: =i+1;     a: =0;     while (s[i]in['0'..'9'])and(i< l) do           begin           a: =a*10+strtoint(s[i]);           i: =i+1           end;     if i=l then a: =a*10+strtoint(s[l]);     case z of           0: r: =r+a;           1: r: =r-a;           2: r: =r*a;           3: r: =r/a;     end;     end; writeln('r = ',r); end.

Эта программа позволяет находить количество слов в предложении, если слова разделены одним пробелом: var s: string;       i,k: integer; begin    writeln('введите строку');     readln(s);     k: =0;     for i: =1 to length(s) do    begin        if s[i]=' ' then k: =k+1;     end;     writeln('количество слов в предложении = ',k+1); end. а эта программа позволяет находить количество слов в предложении, если слова разделены одним или несколькими пробелами: var s: string;         i, k: integer; begin    k : = 0;     writeln('введите строку: ');     readln(s);     s: = ' ' + s;     for i: =1 to length(s)-1 do        if (s[i] = ' ') and (s[i+1] < > ' ') then k: =k+1;     writeln(k) end.