В 32. Надо разделить числа, тогда будет известно, во сколько раз.
<span>Число -1607 в 16-разрядной ячейке запишется следующим образом: </span>
<span>1111 1001 1011 1001</span>
// PascalABC.NET 3.3
begin
var x:=ReadInteger;
writeln((1+x)*x div 2);
end.
Пример:
6
21
Var
l,i:longint;
S:String;
begin
Read(S);
l:=length(S);
For i:=l downto 1 do Write(S[i]);
end.