На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

 var z,y,s,t,m,x,i,k,j:longint; 
 a: array [1..2] of integer; 
 function f(n:integer):integer; 
 var p:integer; 
 begin 
   f:=0; 
   for p:= 2 to x div 2 do 
   begin 
      if x mod p=0 then 
     begin 
       f:=1; 
       break; 
       end; 
     end; 
   end; 
 begin 
 t:=0; 
 for i:=1 to 10 do 
 begin 
    k:=0; 
 for j:=2 to round(sqrt(i)) do 
 begin 
 if (i mod j =0) and (f(j)=0) and (j<>(i div j)) and (f(i div j)=0) then 
   begin  
  k:=k+1; 
 if k>1 then 
   break; 
 s:=j; 
 y:=i div j; 
 m:=i; 
 end; 
  end;; 
  if (k=1) and (s*y=m) then 
  begin 
    t:=t+1; 
    writeln (t, ' ',m);  
  end; 
  end; 
 end.

Создай свой форум на сервисе Borda.ru
Форум находится на 3 месте в рейтинге
Текстовая версия