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.

Answer 2

а проше?

Answer 3

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

Answer 4

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

037d5192c3eeeea7fb6d8079519efce5.cpp