помогите пожалуйста с написанием (желательно с пояснением) программы в Turbo Pascal

Question

Игорь Воронцов · Accepted Answer

var s,p:real; i:integer; 
begin s:=0; for i:=2 to 17 do begin p:=sin(pi/12*(i-1)); if p>0 then s:=s+i*p end; writeln(s:0:7); readln end. 
 
Пояснение: при проверке положительности умножать на i необязательно. 
Вообще зачем школьников учат программированию, ума не приложу. Это так же, как самолетостроению - от школьного Паскаля до реального программирования как от самоката до самолета.

Екатерина Лебедева · Answer

СВОИ домашки делай САМА! 
 
If ai>0 then inc(sum,ai)

Люба Якуничева · Answer

готова платить? на почту жду

Славинский Игорь · Answer

1. Забудьте про турбо-паскаль, вымер вместе с ДОС-ом. Переходим на Lazarus. 
2. Решается в обычном цикле: 
s:=0; x:=PI/12; 
for k:=1 to 16 do 
if (k+1)*sin(x/k) > 0 then s:=s+(k+1)*sin(x/k); 
Всё!