Создать проект, где вводится расстояние, цена бензина, потребление бензина и вычисляется стоимость поездки на дачу. Также ставится галочка для расчетра стоимости в одно направление или туда и обратно.
Круги́ э́йлера — схема, с которой можно изобразить отношения между подмножествами, для наглядного представления. изобретены эйлером. используется в , логике, менеджменте и других прикладных направлениях. важный частный случай кругов эйлера — диаграммы эйлера — венна, изображающие все 2n комбинаций n свойств, то есть конечную булеву . при n=3 диаграмма эйлера — венна обычно изображается в виде трёх кругов с центрами в вершинах равностороннего треугольника и одинаковым радиусом, приблизительно равным длине стороны треугольника. при решении целого ряда леонард эйлер использовал идею изображения множеств с кругов. однако, этим методом еще до эйлера пользовался филосов и готфрид вильгельм лейбниц (1646—1716). но достаточно основательно развил этот метод сам л. эйлер. методом кругов эйлера пользовался и эрнст шрёдер (1841—1902) в книге « логики» . особенного расцвета графические методы достигли в сочинениях логика джонa венна (1843—1923), подробно изложившего их в книге «символическая логика» , изданной в лондоне в 1881 году. поэтому такие схемы иногда называют диаграммы эйлера — венна.
for var l:=N.Low to N.High do N[l]:=(N[l] mod 2 = 0)? Q:N[l];
writeln('Полученный массив: ',N);
end.
Объяснение:
var N: array of integer; Вводим наш массив с числами
SetLength(N,16); Устанавливаем его длину, 0 - первый элемент, 15 - последний, итого 16 ячеек
N.FillRandom(1,11); Заполняем массив случайным образом числами от 1 до 11
var Q:=N.FindAll(x -> x mod 2 = 0).Length; Находим количество четных элементов. x mod 2 остаток от деления каждого элемента на 2
{Процедура FindAll заносит все значения, по условию в отдельный массив, через .Length смотрим его длину}
writeln('Количество четных элементов:',Q);
N.Sort; Reverse(N); N.Sort - сортирует массив по возрастанию, а reverse() меняет последовательность на противоположную, соответственно, теперь он отсортирован по убыванию
for var l:=N.Low to N.High do N[l]:=(N[l] mod 2 = 0)? Q:N[l]; От начала массива и до его конца, над каждым элементом смотрим - четный он или нет, если четный - заменяем на Q (число элементов)
begin
var N: array of integer;
SetLength(N,16);
N.FillRandom(1,11);
var Q:=N.FindAll(x -> x mod 2 = 0).Length;
writeln('Количество четных элементов:',Q);
N.Sort; Reverse(N);
for var l:=N.Low to N.High do N[l]:=(N[l] mod 2 = 0)? Q:N[l];
writeln('Полученный массив: ',N);
end.
Объяснение:
var N: array of integer; Вводим наш массив с числами
SetLength(N,16); Устанавливаем его длину, 0 - первый элемент, 15 - последний, итого 16 ячеек
N.FillRandom(1,11); Заполняем массив случайным образом числами от 1 до 11
var Q:=N.FindAll(x -> x mod 2 = 0).Length; Находим количество четных элементов. x mod 2 остаток от деления каждого элемента на 2
{Процедура FindAll заносит все значения, по условию в отдельный массив, через .Length смотрим его длину}
writeln('Количество четных элементов:',Q);
N.Sort; Reverse(N); N.Sort - сортирует массив по возрастанию, а reverse() меняет последовательность на противоположную, соответственно, теперь он отсортирован по убыванию
for var l:=N.Low to N.High do N[l]:=(N[l] mod 2 = 0)? Q:N[l]; От начала массива и до его конца, над каждым элементом смотрим - четный он или нет, если четный - заменяем на Q (число элементов)
writeln('Полученный массив: ',N);