5 битов, т.к. 2⁵ = 32 и этого хватит для 30 символов
var i,n,s:longint;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+i*i*i;
writeln('s=',s);
end.
<h2>Первый вариант</h2>
n = int(input('Введите количество чисел: '))
print('Вводите числа по очереди: ')
up = True
k = 0
b = 0
while k < n:
k+= 1
a = int(input())
if up and a < b:
up = False
b = a
if up:
print('Последовательность возрастающая')
else:
print('Последовательность не возрастающая')
<h2>Второй вариант с более коротким условием</h2>
n = int(input('Введите количество чисел: '))
print('Вводите числа по очереди: ')
up = True
k = 0
b = 0
while k < n:
k+= 1
a = int(input())
up = not(up and a < b)
b = a
if up:
print('Последовательность возрастающая')
else:
print('Последовательность не возрастающая')
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var max:=a.Max;
Writeln('Сумма положительных без максимума равна ',
a.Where(x->(x>0) and (x<>max)).Sum)
end.
<u>Пример</u>
n= 16
-47 -28 38 49 -42 2 49 -29 39 -36 -4 -11 45 -12 -44 -16
Сумма положительных без максимума равна 124