Ученик проводил исследование для урока биологии. В течение часа он подсчитал, что к кормушке подлетели 25 голубей и 75 воробьёв. Сколько информации содержит сообщение о том, что к кормушке подлетел голубь?

ваня и с.- отличники, значит ваня не с.петя и в.- троечники, значит петя не в.       в. ростом выше п., а коля ростом ниже п. - значит коля не в. и коля не п.     так как петя – троечник, то петя не с.     так как ваня – отличник, то ваня не в.     саша не п., не с., не к.тогда коля это с. коля это не к.т.к. саша это в. и саша одного роста с петей, то петя не может быть п., т.к. в выше п., петя это к.отсюда ваня это п.

саша =в  петя=к  ваня=п  коля=с

                                                                          нет

№1.

код на языке pascalabc:

program z1; uses crt; varx,y: real; beginwriteln('введите x '); readln(x); if x> 0 then y: =sqrt(x)elsey: =sqr(x); writeln('x= ',x,'y= ',y); end.

№2.

program z2; uses crt; vara,b,a1,b1,r: real; beginwriteln('введите 1 число '); readln(a); writeln('введите 2 число '); readln(b); a1: =sin(a)/cos(a); b1: =sin(b)/cos(b); r: =a1+b1; writeln('1 число: ',a,'   2 число: ',b,'   3 переменная: ',a1); writeln(' 4 переменная: ',b1,'   сумма 2 последних переменных: ',r); end.

var s1,s2,c1,c2: string;

i: integer;

begin

  read(s1,c1,c2);

  for i: = 1 to length(s1) do begin

      s2: =s2 + s1[i];

      if s1[i]=c1 then s2: =s2+c2;

  end;

  writeln(s2);

end.