pascal
Главная | Каталог статей | Регистрация | Вход
Суббота
19.07.2025
01:06
Приветствую Вас Гость | RSS
Главная » Статьи » Pascal » Процедуры и функции

Простое число

 function prost (x : integer) : boolean;
  var
    i : integer;
    r : boolean;
  begin
   i := 2;
   r := true;
   While (i <= x div 2) and (r) do
    begin
     if x mod i = 0 then
      r := false;
     i := i +1;
    end;
   Result := r;
  end;

Категория: Процедуры и функции | Добавил: cccc1808 (20.05.2015)
Просмотров: 208 | Рейтинг: 0.0/0
Всего комментариев: 0
avatar
Вход на сайт
Поиск
Copyright MyCorp © 2025
Бесплатный хостинг uCoz