Дано простое число. Найти следующее за ним простое число

@Ксения1206 · Регистрация: 19.03.2012

Author24 — интернет-сервис помощи студентам

Дано простое число. Составить программу,которая будет находить следующее за ним простое число.(напр. для 11-13,а для 23-29). Если исходное число не является простым, то вывести на печать 0.

Помогите пожалуйста,никак не додумаю...вот есть часть программы...

Pascal

var n,x,k:integer;
begin
writeln('Вв число ');readln(n);
  begin 
    for x:=2 to n div 2 do
     if n mod x=0 then 
      k:=k+1;
  end;
     if k<>0 then writeln('0')
      else

а что дальше никак не пойму,именно какое условие записать чтобы он выбирал следующее за ним простое число...

@Puporev · 31.05.2012, 18:23

Pascal

uses crt;
function Prost(n:longint):boolean;
var i:longint;
    f:boolean;
begin
if n<2 then f:=false
else
 begin
  f:=true;
  i:=2;
  while (i*i<=n)and f do
  if n mod i=0 then f:=false
  else i:=i+1;
 end;
Prost:=f;
end;
var n,i:longint;
begin
clrscr;
repeat
write('Введите простое число n=');
readln(n);
until Prost(n);
i:=n+1;
while not Prost(i) do
i:=i+1;
write('Следующее простое число=',i);
readln
end.

@Ксения1206 · 31.05.2012, 18:28 **[ТС]**

Спасибо))

@Ксения1206 0 / 0 / 0 Регистрация: 19.03.2012 Сообщений: 9
	31.05.2012, 18:28 [ТС]	3
	Спасибо)) 0

Опции темы