<span><em></em><em>Если a - это -10 :</em>
</span>var b,i,s:integer;
begin
s:=0;
read (b);
if (b>-10) then
begin
for i:=-10 to b do
begin
s:=s+i;
end;
end;
writeln (s);
end.
<h2>Программка с акцентом )))</h2>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a:=ReadlnString.ToWords;
a.Transform(t->RightStr(t,2)='ая' ? t[:t.Length-1]+'ой':t);
a.Println
end.
<h2>Пример</h2><h3>Ох, какая же большая пребольшая эта синяя птичка!</h3><h3>Ох, какой же большой пребольшой эта синяя птичка!</h3>
1) k, My_peremen
2) e = -5
3) -1
Двойки- 2886
Тройки- 4329
Четверки- 5772
Пятерки- 7215
Шестерки- 8658
Семерки- 10101
Восьмерки- 11544
Девятки- 12987
Алгоритм 21211
вычти 1: 27-1=26
раздели на 2: 26/2=13
вычти 1: 13-1=12
раздели на 2: 12/2=6
раздели на 2: 6/2=3
Ответ: 21211