Напишите программу определения простого числа в Паскале

Question

Напишите программу определения простого числа в Паскале

Comments

ну так как реализует?

---

в коде паскаль

---

пожалуйста

---

Умоляю

---

у меня экзамен завтра , а меня не было когда она говорила всем

---

я же все сделал

---

если сам алгоритм подсказали , то где проблема .

Answer 1

Var
  i,n,m,s:integer;
begin
  write('Введите число: ');
  readln(n);
  if n mod 2=0 then
    writeln('Число не является простым')
  else begin
    m:=trunc(sqrt(n));
    i:=3;
    while (n mod i <> 0) and (i<=m) do i:=i+2;<br>    if i<=m then writeln('Число не является простым')<br>    else writeln('Число является простым')
  end
end.

Comments

m:=trunc(sqrt(n)); Что это?

Answer 2

Program chisla;
uses crt;
var i,a,k: integer;
begin
clrscr;
write('введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then k:=k+1;
if k=0 then write('простое')
else writeln('не простое');
readln;
end.

Comments

ну да вещь простенькое

---

но рабочее