Паскаль в примерах. Иринчеев А.А - 73 стр.

        ( переменные c и t должны иметь тип real)

      Имя каждого файла, который будет использован в данной программе, должно быть ука-
зано в скобках после названия программы.
      Например:
       Program Prim(C);
       Program Prim(C,C1);
      Программа должна содержать описания тех файловых типов, к которым принадлежат
файлы, упомянутые в заголовке программы. Идентификаторы, служащие именами этих фай-
лов, должны быть описаны в программе как переменные соответствующих типов.
      Пример 58. Программа, в результате выполнения которой выводятся все малые латин-
ские буквы из данного символьного файла prim2fail.

        Program pr58(prim2fail);
         Type v=file of char;
         Var
          prim2fail:v;
        s:char;
         begin
          reset (prim2fail);
           while not eof(prim2fail) do
            begin
             read(prim2fail,s);
              if (s<= ‘ z ‘) and (s>= ‘ a ‘) then writeln(s)
            end
 end.

            3. ПРАКТИЧЕСКИЕ ПРИМЕРЫ РЕАЛИЗАЦИИ ПРОГРАММ НА РАСКАЛЕ

   В данном разделе рассмотрены реализованные программы на Паскале, как образец реали-
зации поставленной задачи.

{Дано натуральное число N. Разложить его на простые множители}

Program pr101;
var
 i,j,n,f:integer;
 begin
  repeat
   write(' Введите натуральное число N ');
   readln(n);
  until N>0;
   write(N:6,' = 1');
    f:=0; j:=n;
    for i:=2 to n div 2 do
     begin
      if j mod i=0 then
       begin
        f:=1;
         while j mod i=0 do
          begin
           write(' * ',i);

                                                                                     73