Определение простоты числа

Определение простоты числа

Исходник программы для определения простоты числа, то есть простое оно или нет. Присутствует тип boolean - логический тип, который может выдавать только True и False (Да и Нет). Есть цикл с параметром - FOR. Простое число - это то число, которое имеет делители только себя и 1. Увидеть исходный код и скачать исходник можно дальше.

Исходный код программы определения простоты числа:

var 
  N: integer;
  IsSimple: boolean; //Логический тип boolean - либо да, либо нет
begin
  writeln('Введите число: ');
  readln(N);
  IsSimple := True;
  for var i:=2 to round(sqrt(N)) do // если число составное, то один из его сомножителей <= sqrt(N) 
    if N mod i = 0 then
    begin
      IsSimple := False;
      break;
    end;
  if IsSimple then
    writeln('Число ',N,' простое')
  else writeln('Число ',N,' составное');  
end.


Скачать исходник: prostoch.pas
Дата: 2012-04-07 21:34:29   Просмотров: 5227

Теги: Паскаль Pascal FOR циклы исходник