20 ∑i^2/(10-i)...

20 ∑i^2/(10-i) 10-i написать программу для нахождения суммы

 

var s:real; переменная для хранения суммы элементов
i:integer; переменная для счетчика

begin
s:=0; обнуляем переменную
for i:=0 downto -10 do идем с верху вниз от 0 до -10 так как по условию 10-i ,до 20
s:=s+(Sqr(i)/(10-i)); суммируем все в переменную s
writeln('Сумма равна = ',s); выводим на экран результат
end.