Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 21 стр.

     NPupil, i, K : Integer;                        { NPupil - число
учеников,
                                           K - количество
зачисленных}
BEGIN ClrScr;
  Write('В КОМАНДУ ЗАЧИСЛЯЮТСЯ УЧЕНИКИ, ');
  WriteLn('РОСТ КОТОРЫХ ПРЕВЫШАЕТ 170 СМ.'); WriteLn;
  Write('Сколько всего учеников ? ');
  ReadLn(NPupil);
  WriteLn('Введите фамилии и рост учеников :');
  For i := 1 to NPupil do
    begin Write(i, '. Фамилия - '); ReadLn(SurName[i]);
          Write('     Рост - ');    ReadLn(Height[i]);
    end; WriteLn;
  K:=0; { Составление списка команды }
  For i := 1 to NPupil do
    If Height[i]>170 then
      begin K:=K+1; Cand[K] := SurName[i] end;
  If K=0 then WriteLn('В КЛАССЕ НЕТ КАНДИДАТОВ В КОМАНДУ.')
    else
      begin WriteLn('КАНДИДАТЫ В БАСКЕТБОЛЬНУЮ КОМАНДУ :');
            For i := 1 to K do WriteLn( i, '. ' , Cand[i]);
      end;
  ReadLn
END.



                    Пример 2.4. Для заданного x вычислить



             Здесь n! = 1. 2. 3 .... n (читается как "n-факториал").

                                      Тест

                   Данные                       Результат

             X=1            n=3


Школьный АЯ
алг Сумма Ряда (арг вещ х, арг цел n, рез вещ S)
нач цел i, вещ P     | P - очередное слагаемое
  S := 1; P := 1
  нц для i от 1 до n
     P := - P*x /i   | получение очередного слагаемого
     S := S + P
  кц
кон
Turbo Pascal
Program SumUp;                                      Блок-схема