Uses crt;
const n=10;
var a:array [1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
writeln;
for i:=1 to n-1 do
begin
if abs(a[i])=abs(a[i+1])
then
begin
if ((a[i]>0) and (a[i+1]<0)) or ((a[i]<0) and (a[i+1]>0))
then
inc(k);
end;
end;
writeln(k);
end.
4)
<span>n = int(input('n='))
s = <span>0
</span>for i in range(9,n+1,2):
s += i
print(i)
print("suma",s)</span>
A = int(input("b = "))
if a//100 == a%10: print("Число симметрично")
else: print ("Число не симметрично")
Пример:
<span>b = 525
Число симметрично</span>
Program zadanie;
var i,n,a:integer;
begin
readln(n);
for i:=1 to n do
begin
if(i mod 2)=1 then a:=a + 1;
end;
writeln(a);
readln;
<span>end.
если я правильно понял то так,если нет,пиши переделаю!</span>