Подскажите как отобрать фамилии. напишите программу, которая заполняет с клавиатуры массив 3x5 фамилиями, именами и отчествами (фамилии размещаются в первой строке, имена — во второй, отчества — в третьей). определите, есть ли в списке однофамильцы и выведите на экран их имена и отчества.

1) 3 яблока;

2) 4 яблока;

3) 5 яблок;

4) n+1 яблок.

объяснение: если доставать яблок столько же, сколько и сортов, то они могут быть все разных сортов.

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

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

  =)

    пусть х - время в секундах.

    тогда

      (1/3 *   60/8 мбайт/с * x) с - время   за треть времени)

      (2/3 * 90/8 мбайт/с * x) с - время за две третти времени

      тогда уравнение получается

      1/3 *   60/8   * x   +   2/3 * 90/8 * x = 9000

      2,5x +   7,5x = 9000

          10x = 9000

          x = 900

        получается 900 секунд или 900/60 = 15 минут)  

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.