Вопрос от посетителя:
В паскале сделать используя циклы:
Ввести число и определить является ли оно простым (если его делители являются 1 и само число)
Илюха отвечает:
program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln(‘Введите число k=’);
readln(k);
d:=2;
n:= k div 2;
pr:=false;
while (d<=n) and not(pr) do
if k mod d = o then pr:=true else d:=d+1;
if pr then writeln (k, ‘- число не простое’) else writeln (k, ‘- число простое’);
readln
end.