Укажите четыре составляющие управляющего процесса с обратной связью:

Управляемый объект

Хозяин

Исполнитель

Подчиненный

Обратная связь

Управляющий объект

Компьютер

Управляющее воздействие

ответ 4: значок @ в адресе электронной почты употребляется всего лишь один раз (насколько мне известно)

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.

var a,b,c: integer;

begin

clrscr;

readln(a,b,c);

          if a = b then writeln(c);

          if b = c then writeln(a);

          if a = c then writeln(b);

readkey;

end. 

на паскале

vara,b: array [0..15] of real;

i: integer; begin

for i: =0 to 15 doa[i]: =i*2;

for i: =0 to 15 do beginb[i]: =1.8*a[i]+32; writeln(a[i],' градуса(ов)','=',b[i],' по фаренгейту'); end;

end.

вот еще через while 

vara,b: array [0..15] of real;

i: integer; begin

for i: =0 to 15 doa[i]: =i*2;

i: =0; while i< =15 do beginb[i]: =1.8*a[i]+32; i: =i+1; end; for i: =0 to 15 dowriteln(a[i],' градуса(ов)','=',b[i],'по фаренгейту'); end.