Var c,i:integer;
function sov(k:integer):boolean;
var j,s:integer;
begin
result:=false;
s:=0;
for j:=1 to k div 2 do if k mod j=0 then s:=s+j;
if s=k then result:=true;
end;
begin
read(c);
i:=1;
while (sov(c+i)=false) and (sov (c-i)=false) do i:=i+1;
if sov(c+i)=true then writeln(c+i) else writeln(c-i)
<span>end.</span>
Если требовалось сделать таблицу истинности, вот. Если нужно что-то другое, то пиши в комментарии, я доделаю.
1)
<span>n = int(input('n ='))
i = <span>1
</span>while i <= n<span>:
</span>----i = i + <span>1
</span></span>----<span>if n \% i == 0<span>:
</span></span>--------<span>print(i,end=',')
2)
</span>print("Введите x:")
x = int(input())
print("Введите y:")
y = int(input())
s = x
k = 1
while s <= y:
k = k+1
s = 1.1*s
print("k = ", k, end = '')
Var r,s,p:real;
begin
write('R=');
readln(r);
s:=Pi*sqr(r);
p:=2*Pi*r;
writeln('Площадь: ',s);
writeln('Периметр: ',p)
<span>end.</span>