Чтобы составить на Паскале нужно уравнение а там легко
3(х+8)=38+х-Вот уравнение
3х-х=38-24
2х=14
х=14/2
х=7
В приведенном фрагменте программы после начального присваивания s:=0 будет выполняться цикл. В теле цикла находятся 2 оператора - в первом операторе вычисляется значение s, во втором - вычисленное значение выводится на экран. Анализ работы цикла:
j=10, s=s+2*j=0+2*10=20, вывод на экран 20
j=11, s=20+2*11=42, вывод на экран 42
<span>j=12, s=42+2*12=66, вывод на экран 66
</span>j=13, s=66+2*13=92, вывод на экран 92
j=14, s=92+2*14=120, вывод на экран 120
<span>j=15, s=120+2*15=150, вывод на экран 150
</span>Таким образом, на экран будет выведено: 20426692120150
// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(30,-10,20).Println(',');
Writeln('Сумма элементов, больших 10, равна ',
a.Where(x->x>10).Sum);
end.
<u><em>Тестовое решение:</em></u>
4,-8,-7,10,13,0,11,-6,-9,-1,-7,-6,2,19,4,-10,-6,9,4,13,-6,20,-4,15,-3,-2,-7,3,16,18
Сумма элементов, больших 10, равна 125
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal('Вводите последовательность',ReadInteger('N=')).Reverse.Println
end.
<u>Пример</u>
N= 10
Вводите последовательность 5 9 3.15 -6.7 0 12 100 35 0.03 1e-20
1E-20 0.03 35 100 12 0 -6.7 3.15 9 5