Uses crt; const Q=10000; var a:array [1..Q] of integer; x,k,p,m,n,o:integer; begin write('a='); readln(m); write('b='); readln(n); a[1]:=m; for x:=2 to (n-m+1) do a[x]:=a[x-1]+1; write('Положительные: '); for x:=1 to (n-m+1) do if a[x]>0 then begin inc(p); write(a[x],' '); end; writeln; write('Отрицательные: '); for x:=1 to (n-m+1) do if a[x]<0 then begin inc(o); write(a[x],' '); end; writeln; writeln('Положительных чисел:', p); writeln('Отрицательных чисел:',o); end.
Толстый Вася одинок, виноват его жирок, что поделать он не знает, дальше пищу поглощает, а худой Парнишка Витя, и доволен и счастлив, да и в теле полно сил, и живёт не унывая, только с Васи угорая, что он жирный нищеброд, да и вовсе блин урод. В жизни жрать он только любит, и его сея любовь в скором времени погубит острой язвою такой. Только Вася не расстроен, не печален, не угрюм, ведь когда начнутся боль будет он жевать изюм. Морали в данных строках нету, смысла тоже не ищи,есть лишь правда, спору нету, в общем Вася не греши.
11101
1001001
2) 100100
1010
11010