program sum_series;
var
n : integer;
begin
readln(n);
while true do
begin
writeln((n * n + n - 90) div 2);
break;
end;
end.
program sum_series;
var
n, sum, i: integer;
begin
sum := 0;
i := 10;
readln(n);
while i <= n do
begin
sum := sum + i;
i := i + 1;
end;
writeln(sum);
end.
S = 10+11+12+…+n, при условии, что переменная n задается пользователем с клавиатуры (использовать оператор цикла while
условие do оператор)