Program ch ;
Var x:integer ;
BEGIN
X:=1;
While xl=7 Do(можешь выбрать другое число)
BEGIN
Write (x, ' ') /в' ' это пробел /
X:=x+1
End ;
END.
<span>обилием возможностей для редактирования как текстового массива целиком, так и отдельных его частей.</span>
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>
ИСПОЛНИТЕЛЬ, ЭТО ТОЧНО, У НАС ТАКОЙ ЖЕ КРОССВОРД БЫЛ.
Объекты БД, их хранение СУБД Access ориентирована на работу с объектами БД, к которым относятся таблицы, запросы, формы, отчеты, страницы, макросы и модули