program prak;
uses crt;
var n,k,i:integer;
begin
clrscr;
write('Введите целое число n=');
readln (n);
for i:=2 to n do
if n mod i=0 then n:=n+1;
if n=0 then
writeln('n=',n);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
