Program massivy;
var array1: array [1..10] of integer;
i, b:integer;
begin
for i:=1 to 10 do
array1[i]:=random(-10, 10);
for i:=1 to 4 do begin
for b:=1 to 4 do
if array1[b] > array1[b+1] then
swap(array1[b], array1[b+1]);
end;
for i:=5 to 9 do begin
for b:=5 to 9 do
if array1[b] < array1[b+1] then
swap(array1[b], array1[b+1]);
end;
for i:=1 to 10 do
writeln(array1[i]);
end.
Плюшевый мишка. Он белый,пушистый,милый мишка. Он умеет стоять ,лежать ,сидеть и смотреть.
Для Paint не знаю честно, возможно в старых версиях (у меня старая) такого нет. В Photoshop помню наизусть: Нажать кнопку "Файл", нажать кнопку "Открыть", выбрать изображение, Нажать кнопку "Коррекция", нажать кнопку "обесцветить". Готово.
Из рисунка следует, что для N-1 пары отверстий, считая сверху, потребуется пройти двойное количество расстояний a и b, т.е. 2(N-1)(a+b). Еще одно расстояние a надо пройти между нижней парой отверстий и еще с каждой стороны остается свободный конец длины l. Тогда общая длина шнурка составит 2(N-1)(a+b)+a+2l
<em><u>Ниже приведена программа на языке Паскаль (версия TP 7.01).</u></em>
uses Crt;
var
a,b,l,N:integer;
begin
ClrScr;
Write('Vvedite a,b,l,N: ');
Read(a,b,l,N);
Writeln('Dlina=',2*(N-1)*(a+b)+a+2*l);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
Vvedite a,b,l,N: 40 20 120 6
Dlina=880