Dogda
6 год назад
ПОМОГИТЕ ПОЖАЛУЙСТА!ОЧЕНЬ НУЖНО!!!
Дано простое число. Найти следующее за ним простое число.Программа Паскаль
ОТВЕТЫ
Negodzhek
Aug 2, 2019
Var
a,i,b:integer;
begin
readln(a);
while (bgt;0)
begin
for i:=2 to a
begin
if ((a mod i)=0) then b:=b+1;
end;
a:=a+1;
end;
writeln(a);
end.
a,i,b:integer;
begin
readln(a);
while (bgt;0)
begin
for i:=2 to a
begin
if ((a mod i)=0) then b:=b+1;
end;
a:=a+1;
end;
writeln(a);
end.
227
Смежные вопросы:
