Определите приемник и источник инфориации: источник→→получатель -пешеход переходит дорогу по регулируемому перекрестку -школьник учит уроки по учебнику -мальчик играет на компьютере -ты набираешь телефонный номер, чтобы позвонить -ты пишешь поздравительную открытку

Регулятор -> пешеход
учебник -> школьник
мальчик <-> компьютер (происходит обмен информации. Школьник вводит данные - компютер возвращает. Если только 1 ответ - все-же мальчик -> компьютер)
человек -> телефон
человек -> открытка -> люди, которые будут её читать 

ответ: в) Сообщение об ошибке.

Объяснение:

'Е' означает символ E. Так как i - счетчик, можно сказать так: программа проходит по каждому символу строки s до тех пор, пока не встретит символ 'E' (s[i] — это i-ый символ строки s). Так как исходные данные (25.34), которые командой Str(c, s) переводятся в строковой тип и записываются в переменную s, не содержат символ E, то после прохода по всем символам строки s, индекс выйдет за границу строки, и компилятор выдаст ошибку об этом.

Если же заменить в программе 'E' на, скажем, '.', то программа выведет сумму всех цифр до плавающей точки. Или же можно указать цифру — тогда программа выведет сумму всех цифр до указанной цифры.

Пример работы:

Задание 1:

Вы писали, что программа должна переводить введённое число в "прямой код", хотя, в тоже время писали, что "она не должна быть кратна" 8 (или 4). Вот "простая" программа для перевода в двоичную систему счисления натуральных чисел. На этой основе можете потом её "усложнять" (например, ввод целых, или перевод в двоичный прямой код).

PascalABC.NET:

## var (x, s) := (ReadInteger, ''); while x>0 do (s, x) := (x mod 2 + s, x div 2); Write(s)

Pascal:

var x: integer; s: string; begin  Read(x);  while x>0 do begin    s := x mod 2 + s;    x := x div 2;  end;  Write(s);end.Задание 2:

PascalABC.NET:

## var (s, x) := (ReadString, 0); var al := '0123456789ABCDEF'; var i := 1; foreach var c in s.Reverse do  (x, i) := (x + i*(Pos(c, al)-1), i*16); Write(x)

Pascal:

var  s, al: string;  x, i, n: int64; begin  Read(s);  al := '0123456789ABCDEF';  n := 1;  for i := Length(s) downto 1 do  begin    x := x + n*(Pos(s[i], al)-1);    n := n * 16;  end;  Write(x) end.