Может надо перегрузить этот фаил. Я всегда перегружаю и всё работает.
Var a,b,k1,k2,s:integer;
<span>begin </span>
<span>s:=0; </span>
<span>k1:=0; </span>
<span>writeln('Введите начало и конец отрезка'); </span>
<span>read(a,b); </span>
<span>k2:=b-a+1; </span>
<span>repeat </span>
<span>if b<0 then break; </span>
<span>s:=s+b; </span>
<span>b:=b-1; </span>
<span>inc(k1); </span>
<span>until (b=-1) or (b=a-1); </span>
<span>writeln('Сумма всех целых положительных чисел на отрезке = ',s); </span>
<span>writeln('Количество отрицательных целых чисел = ', k2-k1); </span>
<span>end.</span>
решением неравенста является множество {4 5 6 7}
его мощность равна 4
Дискета, кассета, лазерный диск... Что-то из этого. Дискеты были на 5 и 3,5 дюйма
Да, можно. М отводится роль емксти, которая в момент начала алгоритма пуста. То есть это как-бы пустой стакан, в который мы перелываем сначала чай, поотм у нас остается пустым стакан, в котором был чай. Мы в него переливаем кофе. И из стакана М переливаем чай в стакан, где недавно было кофе.