Проверка наличия простых чисел

pascal
  1. uses crt;
  2. var i:integer;
  3.  
  4. function prime(n:integer):integer;
  5.   var i:integer;
  6.       b:boolean;
  7. begin
  8.   b:=false;
  9.   for i:=2 to round(sqrt(n)) do
  10.     if n mod i=0 then begin
  11.       b:=true;
  12.       break;
  13.     end;
  14.   prime:=b;
  15. end;
  16.  
  17. begin
  18.   clrscr;
  19.   for i:=2 to 100 do if prime(i) then write(i,' ');
  20. end.
Диапазон от 0 до 100, ищем простые числа.
Назад

Реклама

Мы в соцсетях

tw tg yt gt