Т.к. в 1 ед свеклы 14% сахара, то составим пропорцию
= ![\frac{30'000}{x}](https://tex.z-dn.net/?f=%20%5Cfrac%7B30%27000%7D%7Bx%7D%20)
Где x - кол-во сахара с 1ГА
кг сахара с 1ГАЧтобы найти кол-во гектар надо необходимую массу сахара поделить на массу с 1 гектара.
Допустим надо найти сколько гектар (n) надо для сбора x кг сахара:
n=![\frac{x}{4200}](https://tex.z-dn.net/?f=%20%5Cfrac%7Bx%7D%7B4200%7D%20)
Pascal ABC Из слова "вертикаль" путем вырезок и склеек его букв получить слова "тир" и "ветка"
<span>Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе "n" слово "нет" Pascal ABC </span>
<span>Даны строки а="вариант",b= "Высоко", с = "макароны". Получить слово "соковарка" Pascal ABC </span>
Pascal ABC Вывести текст файла, заменив цифры от 0 до 9 на слова "ноль", "один"..."девять", начиная каждое предложение с новой строки
<span>Из слова "яблока" путем вырезок и склеек получить слово "блок" и "ока" Pascal ABC </span>
Pascal ABC Составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет"
Pascal ABC Пожалуйста,составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА"
<span>Из слова "апельсин" путем вырезок и склеек его букв получить слово "спаниель" Pascal ABC </span>
Var
m: array [1..31] of integer; //заполненный массив
sr: real; //средняя сумма
sum: integer; //сумма всех элементов
i: integer;
a: integer;//значений выше
b: integer;//значений ниже
c: integer;//равных среднему
begin
for i := 1 to 31 do
sum := sum + m[i];
sr := sum / 31;
for i := 1 to 31 do
if m[i] > sr then
a := a + 1
else if m[i] < sr then
b := b + 1
else c := c + 1;
writeln(a);
writeln(b);
writeln(c);
<span>end.</span>
Rgb - red green blue
значение каждого параметра от 0 до 255 так что 512 вовсе не подходит
для якро красного подойдет только 0
ответ 0
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125