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

Question

70

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

alexem · Accepted Answer

71

alexem

04 апреля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: