1:
var s:longint;
i,n:byte;
begin
write('Введите количество членов ряда: '); readln(n);
for i:=1 to n do s:=s+sqr(i*5);
write(s);
end.
2:
var v:longint;
i,n:real;
begin
write('Введите первоначальный объём (л): '); readln(v);
n:=30;
i:=2.5;
while i <= n do begin
v:=2*v;
i:=i+2.5;
end;
write('Через 30 часов будет ', v, ' литров');
end.
3:
var nf,mf:longint;
i,n,m:byte;
begin
nf:=1;
mf:=1;
write('Введите n: '); readln(n);
write('Введите m: '); readln(m);
for i:=1 to n do nf:=nf*i;
for i:=1 to m do mf:=mf*i;
write('n!+m!=', nf+mf);
end.
4:
var x,s:integer;
c:byte = 0;
begin
while true do begin
write('Введите число (0 для выхода): '); readln(x);
if x = 0 then break;
if x < 0 then begin
s:=s+x;
inc(c);
end;
end;
if c = 0 then write('Ни одного отрицательного числа не было введено')
else write('Среднее арифметическое отрицательных значений равно: ', s/c:0:2);
end.
5:
var x,s:integer;
begin
while true do begin
write('Введите число (0 для выхода): '); readln(x);
if x = 0 then break;
if (x mod 2 = 0) and (x > 0) then s:=s+x;
end;
if s = 0 then write('Ни одного чётного положительного числа не было введено')
else write('Сумма чётных положительных чисел равна: ', s);
end.
6:
var a:Array[1..10] of integer;
max_v:integer;
i,max_i:byte;
begin
a[1]:=random(100);
max_v:=a[1];
max_i:=1;
write(a[1],' ');
for i:=2 to length(a) do begin
a[i]:=random(100);
if a[i] > max_v then begin
max_v:=a[i];
max_i:=i;
end;
write(a[i],' ');
end;
if max_i <> length(a) then begin
a[max_i]:=a[length(a)];
a[length(a)]:=max_v;
end;
writeln();
for i:=1 to length(a) do write(a[i], ' ');
end.
ответ:
если вы ищете ответ на вопрос, как пронумеровать страницы в опен офис, мы расскажем вам подробную поэтапную инструкцию, которая вам решить возникшую трудность.
текстовый редактор пакета программ опен офис под названием writer имеет похожий на известный всем word интерфейс, а потому пользоваться им просто. обычно трудности возникают в вопросе, как сделать нумерацию страниц в опен офисе, а эта функция довольно часто нужна пользователям, например, при написании дипломных работ. весь процесс состоит из 2 этапов.
вставка колонтитулов в опен офисе
первоначально нужно включить колонтитулы, на них будут размещены номера страниц. сначала решите, где вы хотите расположить нумерацию: если сверху – вам нужен верхний колонтитул, если снизу- нижний. пошаговая схема такая: nijkolontitul
откройте раздел меню вставка. после этого в меню найдите верхний колонтитул или нижний, в зависимости от вашей ситуации. затем нажмите обычный.
вы увидите на листе вверху или внизу колонтитул. кликните по нему мышкой.
справа вы увидите табличку с форматированием текста. здесь вы должны выбрать место для будущей нумерации страницы и указать ее формат.
переходим к завершающему этапу – непосредственно к тому, как в openoffice пронумеровать страницы.
проставляем нумерацию страниц в openoffice
инструкция следующая: nomerstranicy
снова войдите в раздел вставка. здесь в меню отыщите пункт поля.
нам нужен пункт номер страницы.
теперь каждый новый лист вашего текстового документа будет иметь свой номер. зачастую первый лист оставляют непронумерованным в качестве титульной страницы. мы расскажем вам, как быть в этой ситуации.
как проставить нумерацию, начиная со 2 листа в open office
сейчас вы узнаете, как пронумеровать страницы в опен офис без титульного листа. инструкция простая: numer4
нужно определить стиль титульной страницы: нажмите в меню на вкладку формат, затем кликните на стили, а потом на стиль страницы. выбираем вариант первая страница.
теперь открываем меню вставка и нажимаем разрыв, кликаем на разрыв страницы, жмем на стиль, нам нужен стиль обычный.
переходим на вторую страницу. теперь вставьте колонтитул и проставьте номера страниц по схеме, описанной выше.
так просто проставляется нумерация страниц в опен офисе с нужной вам страницы документа.
объяснение:
