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>
var
i, sum, m: integer;
begin
sum := 0;
for i := 1 to 8 do
begin
readln(m);
if m > 0 then
sum := sum + m;
end;
writeln('сумма положительных чисел= ', sum);
end.
А) 30<span>0.5
б) </span>42322.125<span>
в) </span>10110110<span>0.1</span>
Компьютер - общая тетрадь