Практикум по решению задач на ЭВМ. Тарова И.Н - 61 стр.

                    Практикум по решению задач на ЭВМ


   program deliteli(input,output);
   uses CRT;
   var N:integer;
   var p1:boolean;
   procedure prost1(var num:integer;var p:boolean); {процедура для распозно-
вания простого числа}
   var i,k:integer;{объявление локальных переменных в процедуре}
   begin
     k:=0;
     p:=false;
     for i:=2 to num-1 do
         if num mod i=0 then k:=k+1; {счетчик количества делителей}
         if k=0 then
            begin
              p:=true;
              writeln('число ',num,'-простое');
            end;
   end;{конец описания процедуры}
   begin
     clrscr;
     write('Введите число для проверки: ');
     readln(N);
     prost1(N,p1);
if p1=false then writeln('число',N,' не является простым');
     readln;
   end.




                                    61