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

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


  uses CRT;
  var k,n,i:integer;
  begin
     clrscr;
     write('Введите число для проверки: ');
     readln(n);
     k:=0;
     for i:=2 to n-1 do
        if n mod i=0 then k:=k+1;
        if k=0 then writeln('число ',n,' простое')
           else writeln('число ',n,' составное');
    writeln('число делителей, отличных от единицы и самого себя=',k);
    readln;
  end.




8)   Дано
натуральное число n. Определить НОД этого числа.

  program prost(input,output);
  uses CRT;
  label 10;
  var n,i:integer;
  begin
     clrscr;
     write('Введите число для поиска НОД: ');
     readln(n);
     for i:=n-1 downto 2 do
        if n mod i=0 then
           begin
              writeln('наибольший делитель=',i);
              goto 10;
           end;
       writeln('наибольший делитель - само число ',n);
        10: readln;
  end.




                                     59