Question

. Составьте программу, которая вычисляет сумму чисел от N до -4. Значение N вводится с клавиатуры(N>0). Решение через паскаль 

Answer 1

var summa: real;

N, i:integer;

begin

read(N);

summa:= 0;

for i:=N downto -4 do

summa := summa + i

end.