Kakan123455
07.02.2022 20:54

(для windows) на основании имеющейся информации с инструмента надпись укажите на схеме положение планет. для этого: 1) на вкладке вставка в группе текст выберите инструмент надпись; 2) выполните команду нарисовать надпись — указатель мыши примет форму +; 3) для вставки надписи стандартного размера щёлкните в документе; 4) для изменения размеров надписи используйте перетаскивание; 5) перетащите надпись на нужное место; 6) если надпись окружена рамкой, то уберите рамку с контекстного меню (формат надписи — цвета и линии — нет линии). (для linux) на основании имеющейся информации с инструмента текст укажите на схеме положение планет. для этого: 1) на панели инструментов рисование нажмите кнопку текст; 2) переместите курсор при нажатой кнопке мыши до получения текстового поля требуемого размера в любом месте документа, а затем введите или вставьте текст; 3) перетащите надпись на нужное место; 4) если надпись окружена рамкой, то уберите рамку с контекстного меню (линия — стиль — невидимая).

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
sashaopalko123
17.07.2022 21:04
Const n=20;
var a:array[1..n] of integer;
i,i1,i2,x:integer;
begin
Randomize;
a[1]:=random(10);
write(a[1],' ');
for i:=2 to n do
 begin
 a[i]:=a[i-1]+random(10);
 write(a[i],' ');
 end;
writeln;
write('x = '); readln(x);
i1:=1; i2:=n;
repeat
i:=(i1+i2) div 2;
if a[i]<x then i1:=(i1+i2) div 2+1;
if a[i]>x then i2:=(i1+i2) div 2-1;
until (a[i]=x)or(i1>i2);
if a[i]=x then 
 begin
 writeln('Искомый(ые) номер(а) элемента(ов):');
 while (i>0)and(a[i]=x) do i:=i-1;
 i:=i+1;
 while (i<=n)and(a[i]=x) do begin write(i,' '); i:=i+1; end;
 end
 else writeln('Элемент не найден');
writeln;
end.

Пример:
5 6 14 15 15 22 30 36 45 45 50 56 60 64 67 76 84 92 99 101 
x = 15
Искомый(ые) номер(а) элемента(ов):
4 5 
0,0(0 оценок)
Ответ:
MagistooorNaine
10.06.2021 16:50
Pascalabc.net 3.4.0, сборка 1675 от 12.06.2018 внимание! если программа не работает, обновите версию! procedure println(self: array of real); extensionmethod; begin   self.batch(5).foreach(s->           begin foreach var p in s do write(p: 15: 10); writeln end);   writeln(min(15*(self.count div 2),38)*'- ') end; begin   var m: =arrgen(readinteger('n='),i-> cos(i),1); m.println;   var (a,b): =readreal2('введите границы a b: ');   writeln('число элементов на интервале [',a,',',b,'] равно ',       m.where(t-> t.between(a,);   write('сумма элементов, расположенных после максимального, равна ');   var imax: =m.indexmax;   (m? [imax+1: ].sum).println;   writeln('элементы, по убыванию модулей');   m: =m.orderbydescending(t-> abs(; m.println; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота