алг
нач
цел н,о
нц для н от 4 до 8
нц для о от н*10 до н*10+н-4
вывод о, " "
кц
вывод нс
кц
кон
Под третьим поколением (3GL) первоначально понимались все языки более
высокого уровня, чем ассемблер. Главной отличительной чертой языков
третьего поколения стала независимость от аппаратного обеспечения,
то есть выражение алгоритма в форме, не зависящей от конкретных
характеристик машины, на которой он будет исполняться. Код, написанный
на языке третьего поколения, перед исполнением транслируется либо
непосредственно в машинные команды, либо в код на ассемблере и затем уже
ассемблируется. При компиляции, в отличие от предыдущих поколений, уже
нет соответствия один-к-одному между инструкциями программы и
генерируемым кодом.
Стала широко использоваться интерпретация
программ — при этом инструкции программы не преобразуются в машинный
код, а исполняются непосредственно одна за другой. Независимость от
«железа» достигается за счёт использования интерпретатора,
скомпилированного под конкретную аппаратную платформу. Одним из ранних
интерпретируемых языков стал Лисп.
<span>419 + например 4559
1319 - т.к. сумма четных цифр дает четное число, а здесь все нечетные
2014 - убывание или числа 2 и 014, а число не может начинаться с 0
1811 - убывание</span><span>
1212 + например 6657
205 - т.к. в порядке неубывания могут стоять только 2 и 05, а на 0 числа не начинаются
322 + 3886
294 - </span>т.к. в порядке неубывания могут стоять только 2 и 94, а сумма 3 чисел не может превышать 27<span>
55 - т.к. все 4 нечетные числа в сумме дают максимум 36, а 5 и 5 невозможно, т.к. 5 не может быть суммой четных чисел
Итого: 3 числа</span>
Ответ: 1) Обрабатывается результаты переписи населения.
2)Передается документы другому человеку.
3)Сохраняется какое либо видео с важной информацией.
п.с я не очень поняла вопрос, если не правильно то сорян
begin
var k := 10;
var x := ReadArrReal('Введи 10 элементов Х:', k);
var y := SeqGen(k, n -> (x[n - 1] / 2) ** n / n, 1).Sum;
y.Println;
end.