определить является ли введенное число простым

Ответ от Миоко Таканава[гуру]
1)
module N69492596;
import std.stdio, std.math;
int main(string[] argv)
{
ulong x, b, d = 1;
write("Введите натуральное число: ");
readf("
", &x);
b = cast(ulong)sqrt(x);
while (++d <= b && x % d)
d += !(d < 3);
writef("Число %d ", x);
if (x > 1 && (x < 4 x % d))
writeln("простое");
else
writeln("непростое");
readln();
return 0;
}
2)
module N69492596;
import System.Math as Math;
var x, b, d, s:cardinal;
begin
write("Введите натуральное число: ");
readln(x);
b := cardinal(Math.Sqrt(x));
d := 2;
s := 1;
while (d <= b) & (x mod d # 0) do
inc(d, s);
s := 2
end;
write("Число ", x:4);
if (x > 1) & ((x < 4) or (x mod d # 0)) then
writeln(" простое")
else
writeln(" непростое")
end;
readln
end N69492596.
3)
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
int x;
cout << "Введите натуральное число: ";
cin >> x;
int b = (int)sqrt(x * 1.);
int d = 1;
while (++d <= b && x % d)
d += !(d < 3);
cout << "Число " << x;
if (x > 1 && (x < 4 x % d))
cout << " простое";
else
cout << " непростое";
cin.get();
cin.get();
return 0;
}
На других языках:

Источник: