Procedure (var n: integer);
var i: integer;
begin
for i := 1 to n do
WriteLn (' Я люблю Паскаль!!!');
end;
1.
// PascalABC.NET 3.3
begin
var a:=ArrRandom(20,10,90); a.Println;
var max_1:=a.Max;
writeln('max_1 = ',max_1,' i_Max_1 = ',a.IndexMax+1);
var max_2:=a.Where(x->x<>max_1).Max;
writeln('max_2 = ',max_2,' i_Max_2 = ',a.IndexOf(max_2)+1);
end.
Пример:
58 10 76 12 22 38 63 30 16 81 84 58 65 20 29 31 18 83 12 38
max_1 = 84 i_Max_1 = 11
max_2 = 83 i_Max_2 = 18
2.
// PascalABC.NET 3.3
begin
var a:=ArrRandom(20,10,90); a.Println;
var sr:=a.Average;
writeln('Среднее = ',sr);
var m:=a.MinBy(x->abs(x-sr));
writeln('Искомый номер = ',a.IndexOf(m)+1);
end.
Пример:
74 80 55 12 74 49 86 32 34 68 29 82 14 35 15 81 18 63 38 75
Среднее = 50.7
Искомый номер = 6
В одном большом и красивом зале жили музыаальны инструменты. вечерами когда зал(театр) наполнялся нарядно одетыми людьми оркестр взвалновално готовился для выступления . каждый инструмент выходил по своему номеру растраивались при неудачах радывались когда аплодируют. когда люди покидали театр люстры меняли яркое свечение на нежный лунный свет а инструменты жили своей жизнью.
Так как участок КВАДРАТНЫЙ, то все стороны у него РАВНЫ.
Площадь-64м2.
а-?
Площадь-а*б
нужно найти корень,то есть число,которое если умножить на это же число,получится 64.
64=8*8
Ответ:8-длина(или ширина) квадратного участка.
<span>Перемещение и копирование с помощью меню1. Выделите область ячеек для копирования.<span>2. Для перемещения щелкните кнопку Вырезать - или выберите команду Вырезать из меню Правка (Edit, Cut). Excel показывает границу, окружающую область вырезания.</span><span>3. Для копирования щелкните по кнопке Копировать - или выберите Правка, Копировать (Edit, Copy). Excel показывает границу, окружающую область копирования.</span>4. Выберите место (верхнюю ячейку области) вставки.</span><span><span><span>5. Щелкните по кнопке </span><span>Вставить - нажмите Enter или выберите Правка, Вставить (Edit, Paste).</span></span></span><span><span><span>Возможность </span><span>Перетаскивания (Drag and Drop) позволяет перемещать или копировать содержимое выделенных ячеек с помощью мыши. Эта возможность особенно полезна при .перемещении и копировании на небольшие расстояния (в пределах видимой области рабочего листа).</span></span>Перемещение и копирование перетаскиванием1. Выберите область ячеек для перемещения.<span>2. Переместите указатель мыши на обрамление выделения.<span>3. Перетащите выделение с помощью указателя на новое место. Область ячеек будет перемещена на новое место.</span><span>4. Если при перетаскивании удерживать нажатой клавишу Ctrl, область ячеек будет скопирована на новое место.</span></span></span><span><span><span>
</span></span></span>
