fork download
copy 
  1. function isPrime(X: LongInt): boolean; {проверка числа на простоту}
  2. var i, mborder: integer;
  3. Begin
  4.      isPrime:=false;
  5.      if x<2 then Exit;
  6.      if not odd(x) and (x<>2) { проверяем на чётность  }
  7.           then exit;
  8.      i:=3;
  9.      mborder := trunc(sqrt(x));
  10.      while i <= mborder  do { проверяем только нечётные }
  11.      begin
  12.           if x mod i = 0 then Exit;
  13.           inc(i,2);
  14.      end;
  15.      isPrime:=true;
  16. End;
  17.  
  18.  
  19. var m : longint;
  20.   flag:boolean;
  21. begin
  22.    repeat
  23.       WriteLn('Введите простое число m:');
  24.       ReadLn(m);
  25.       flag := isPrime(m);
  26.       if Not flag then WriteLn('Неверно. Число ',m,' составное!');
  27.    until flag;
  28.    repeat
  29.      inc(m);
  30.    until isPrime(m);
  31.    WriteLn('следующее простое число: ',m);
  32.    //readln;
  33. end.
  34.  
Success #stdin #stdout 0s 4400KB
comments (?)
stdin
copy 
13
stdout
copy 
Введите простое число m:
следующее простое число: 17
https://ideone.com/hUCbBZ
language:
Pascal (fpc 3.0.4)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!