var a:array[1..15]of integer;
x,i:integer;
begin
i:=1;
while i<16 do begin
readln(x);
if x<0 then a[i]:=x;
inc(i);
end;
for i:=1 to 15 do if a[i]<0 then writeln(i);
end.
457 : 2=228, остаток 1
228 : 2=114, остаток 0
114 : 2=57, остаток 0
57:2=28, остаток 1
28:2=14, остаток 0
14:2=7, остаток 0
7:2=3, остаток 1
3:2=1, остаток 1
1:2=1, остаток 0
0
Ответ: 4
1280 Кбайт
31,25 сек
16 Кбайт
Две возможные методики решения - через цикл и по формуле для суммы членов арифметической последовательности.
Проблемы - можем получить переполнение, если N слишком большое