Program Project1;
var m:array of integer; res, n, i:integer;
begin
repeat
write('n: '); readln(n);
SetLength(m, Length(m)+1);
m[Length(m)-1]:=n;
until n=0;
res:=0;
for i:=1 to Length(m)-1 do
if m[i]<0 then res:=res+m[i];
writeln('Result:=', res);
readln;
end.
Программа для решения задачи - в прилагаемом файле.
A = int(input("b = "))
if a//100 == a%10: print("Число симметрично")
else: print ("Число не симметрично")
Пример:
<span>b = 525
Число симметрично</span>