• решите задачу в паскале наити количество простых чисел из отрезка АВ

Ответы 1

  • var c,a,b,i,j,l:integer;begin cls;

     write('Введите через пробел отрезок'); read(a,b);  for i:=a to b+1 do  begin   j:=2;   l:=round(sqrt(i));   while (i mod j <> 0) and (j <= l) do                                       begin                                        inc(j);                                       end;    if (j > l) then                   begin                    write(c,' ');                    c:=i;                   end;  end;end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years