Рассмотрим решение данной задачи с помощью всех циклических структур. program s1, var i, n, s: real, begin writeln (‘введите число n’), readln (n), s:=0, i:=1, while i<,=40 do begin s:=s + (n - i), i:=i+1 end, writeln (‘сумма =’ ,s:6:0), readln, end. program s1, var i, n, s: real, begin s:=0, writeln (‘введите число n’), readln (n), i:=1, repeat s:=s+(n-i), i:=i+1, until i>,40, writeln (‘сумма=’,s:6:0), readln, end. program s1, var n, s: real, i: integer, begin writeln (‘введите число n’), readln (n), s:=0, for i:=1 to 40 do s:=s+(n-i), writeln (‘сумма =’ ,s:6:0), readln, end.