Найти двузначное число, равное утроенному произведению его цифр. ответ: 15,24.

Var i,j: integer; begin for i: =1 to 9 do   for j: =0 to 9 do   if i*10+j = 3*i*j then writeln(i*10+j); end. результат: 15 24

Если надо программу для поиска такого числа, то как вариант: //pascal var i: integer; begin   for i: =10 to 99 do       if (i=(i div 10 * i mod 10) *3) then writeln(i); end. ответ: 1524

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.

рыжие и зеленоглазые - 2

рыжие или зеленоглазые - 6

рыжие и не зеленоглазые - 3

не рыжие и не зеленоглазые - 1