По порядку: Programm z_1; слово программа на английском пишется с 1 m правильно: program z_1; 1) Beigin; правильно Begin и без точки с запятой 2)p=0; оператор присвоения пишется не просто равно, а := правильно: "p:=0;" 3)i=1; см. 2пункт 4)write i > 15 to beigin; write - это оператор вывода, полагаю тут надо цикл while, условие лучше писать в скобках, не to, а do и beigin см. пункт 1 правильно: while (i > 15) do begin 5)i=i+2; см. пункт 2 6) while ('произведение нечётных чисел от 1 до 15 =',р); тут полагаю нужен оператор вывода write, так же в скобках там буква Р русская, а надо P (пэ) английскую. правильно: write ('произведение нечётных чисел от 1 до 15 =',p); 7) End. в конце цикла пишут end; 8) в конце программы ставят End.
Откорректированный код:
Program z_1 Var i,p : integer; Begin p:=0; i:=1; while (i > 15) do begin p:=p*i; i:=i+2; end; write('произведение нечётных чисел от 1 до 15 =',p);
Держи. На питоне
Объяснение:
n = int(input())
cool_score = 0
jumps = input().split()
sorted_jumps = sorted(jumps)
for i in range(len(jumps)):
if i != len(jumps) - 1:
Ni = jumps.index(sorted_jumps[i]) + 1
Hi = sorted_jumps[i]
if jumps.count(jumps[i]) > 1:
jumps[i] = 'done'
Nj = jumps.index(sorted_jumps[i + 1]) + 1
Hj = sorted_jumps[i + 1]
a = 'abs({} - {}) + {} - {}'.format(int(Ni), int(Nj), int(Hj), int(Hi))
cool_score += eval(a)
print(cool_score)