Переделать программу из for в repeat. вот код: program prost; var i,n,s: integer; begin readln (n); s: =0; for i: =1 to n do if n mod i=0 then s: =s+i; if s=(n+1) then writeln('n-простое число') else writeln('n не является простым числом'); end.
Program prost; Var i,n,s:integer; Begin readln (n); s:=0; i:=0; repeat i:=i+1; if n mod i=0 then s:=s+i; Until i=n; if s=(n+1)then writeln('n-простое число') else writeln('n не является простым числом'); end.
Var i,n,s:integer;
Begin
readln (n);
s:=0;
i:=0;
repeat
i:=i+1;
if n mod i=0 then
s:=s+i;
Until i=n;
if s=(n+1)then writeln('n-простое число')
else writeln('n не является простым числом');
end.