Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,s,i: integer;
begin
readln(a,b);
if a> b then
for i: =b to a do
s: =s+i
else
for i: =a to b do
s: =s+i;
writeln(s);
end.
если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0)
решение на
Популярные вопросы