Функция определения простоты числа на Pascal
Функция определения простоты числа...
function IsSimple(N: integer): boolean;
begin
Result := True;
for var i:=2 to round(sqrt(N)) do
if N mod i = 0 then
begin
Result := False;
exit;
end;
end;
begin
writeln(IsSimple(13));
writeln(IsSimple(4));
writeln(IsSimple(7));
end.
10.02.2015, 10:28 -
Категория: Статьи » Программирование » Pascal