Решить в паскале: 1. известно значение роста 25 учащихся класса заданные в алфавитном порядке фамилии определить рост учащегося который при построении учащихся по росту в порядке возрастания занимал бы 10 место при счете от самого высокого ученика 2. известно значение максимальной скорости 15 модели автомобилей, определить максимальную скорость автомобиля, являющегося 6, самым быстрым автомобилем. 3. в каждом из 2 классов учится по 18 человек известно в средней оценки каждого ученика каждого класса посчитаны по ряду предметов все значения для каждого класса равные определить в каком классе у 3 из самых успевающих учеников средняя оценка больше

1)  -10.3-2,6=-12,9 2) 18,7-20, 025=8,557325

// PascalABC.NET

begin

 var СправочникКомпании := new List<string>;

 while True do

 begin  

   var НаборСлов := ReadlnString.ToWords;

   var ЧислоСлов := НаборСлов.Length;

   case ЧислоСлов of

     2: СправочникКомпании.Add(НаборСлов[0] + ' ' +

         НаборСлов[1]);

     3: begin

           СправочникКомпании.Add(НаборСлов[1] + ' ' +

               НаборСлов[2]);

           break

        end;  

     else

       Writeln('Нарушен формат данных, строка не принята')  

   end

 end;  

 WriteAllLines('ТелефонныйСправочник.txt',

     СправочникКомпании.ToArray)

end.

Рассмотрим простейшую схему кредитования (и самую невыгодную для заёмщика), когда за каждый год отдается фиксированный процент p от первоначальной суммы кредита k без учета того, что часть кредита уже погашена за предыдущие годы. в этом случае ежегодная сумма процентов по кредиту составит sk=k×p%/100%. за n лет будет отдано n×sk. и еще нужно вернуть саму сумму кредита k. итого нужно вернуть k+n×sk. доход за это время составит n×r и получаем неравенство n×r ≥ n×sk+k n×(r-sk) ≥ k → n ≥ k/(r-sk) с округлением до целых в большую сторону. // pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin   var (k,p): =readreal2('сумма кредита и процент годовых: ');   var r: =readreal('предполагаемый годовой доход: ');   var sk: =k*p/100;   if r< =sk then writeln('рассчитаться за кредит невозможно')   else writeln('количество лет на погашение кредита: ',floor(k/(r- end. пример сумма кредита и процент годовых: 10 0000 16 предполагаемый годовой доход: 24000 количество лет на погашение кредита: 12