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

Question

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

Answer 1

Var
  n, i, f: integer;
begin
  write('Введите число: ');
  readln(n);
  i:= 0; f:=0;
  while i < n do
  begin
    i := i + 1;
    if n mod i = 0 then f := f + 1;
  end;
  if f = 2 then writeln('Простое')
  else writeln('Не простое');
end.

Comments

а проше?

---

for i ;= 2 to n-1 do if n mod i = 0 then writeln('не простое') halt

Answer 2

Программа на С++ с асимптотикой sqrt(N) во вложении