Назовите источник информации, ее приемник и информационный канал. кто в данной ситуации создавал помехи для качественной передачи информации? пока салтан воевал, царица родила сына – царевича гвидона: …шлет с письмом она гонца, чтоб порадовать отца. а ткачиха с поварихой, с сватьей бабой бабарихой извести ее хотят, сами шлют гонца другого…

Источник: царица; приемник: царь (отец); инф. канал: гонец; помехи: ткачиха, повариха

pascalabc

program time;

var h1,h2,m1,m2,s1,s2: integer;

begin

  writeln('введите первый момент времени: ');

  write('часы = '); readln(h1);

  write('минуты = '); readln(m1);

  write('секунды = '); readln(s1);

  writeln('введите второй момент времени: ');

  write('часы = '); readln(h2);

  write('минуты = '); readln(m2);

  write('секунды = '); readln(s2);

  s1: =h1*3600+m1*60+s1;

  s2: =h2*3600+m2*60+s2;

  writeln('между первым и вторым моментом прошло ',s2-s1,' секунд.');

  end.

uses graphabc;

 

procedure drawlight(x, y, r : integer; c : color);

begin

  brush.color : = c;

  circle(x, y, r);

end;

 

begin

  randomize;

  var v : = random(1, 3);

  var(c1,c2,c3): =(clwhite,clwhite,clwhite);

  case v of

    1 : c1 : = clred;

    2 : c2 : = clyellow;

    3 : c3 : = clgreen;

  end;

  drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);

  drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);

  drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);

end.

в паскале