Var n,i: integer;
priz: boolean;
begin
write('n = '); readln(n);
repeat
priz:=true;
for i:=2 to round(sqrt(n)) do
if n mod i=0 then
begin
priz:=false;
break;
end;
if priz then write(n)
else inc(n);
until priz;
end.
n = 121
127
Это программа меняет на противоположный(+ на - и наооборот)
program apscala;var a,b,max:integer;beginreadln(a,b);if a>b then max:=a else max:=b;max:=-max;writeln(max);end.<span>
</span>
<span>n = int(input("n = "))
b = int(input("b = "))
if n < b :
print("Число ",b," больше числа ",n)
else:
print("Число ",n," больше числа ",b)</span>
var
masiv:array[-10000..10000] of integer;
begin
for var i := -10000 to 10000 do
begin
randomize;
masiv[i] := random(-10000, 10000);
end;
end.