1. 

   _RUSH_ New Member

   Срочно решите пожалуйста. В turbo pascal. Выведите на экран вче числа от 1 до N , у которых 4 делителя. Заранее огромноеспасибо.

    

   _RUSH_, 29 мар 2010

   #1
2. 

   regex New Member

   var a:array [1..100] of integer;
   i,n,j:integer;
   Begin
     read(n);
     for i:= 1 to n do
     begin
       for j := 1 to i do
          if i mod j = 0 then a:=a+1;
       if a=4 then writeln(i);
     end;
       
   End.
   

    

   regex, 29 мар 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня