Как в паскале определить простое число или нет? желательно программу как можно проще. заранее

279

377

Посмотреть ответы 2

Ответы на вопрос:

anastasiyapinoнастя

Информатика

4,4(29 оценок)

Программа работает var n, i,j, s : integer; begin write('введите число'); readln(n); for i: =1 to n do begin s: =0; for j: =1 to i div 2 do begin if i mod j=0 then inc(s); end; if s=1 then writeln(i); end; end. п.с. программа находит все простые числа до заданного тобой числа