Var N,S,a0, i: integer;
begin;
N:=0;
S:=0;
read(N);
read(S);
a0:= S div N - N + 1;
write(a0);
for i:=1 to N-1 do
begin
write(' ', a0 + 2*i);
end;
end.
N = int(input())
ans = 0
while n != 0:
if n & 1 == False:
ans += 1
n = int(input())
print(ans)<span> </span>
Можно привести в пример сборку шкафа,если я правильно поняла ,что ты подразумеваешь под схемой. Там есть инструкция,по которой можно собрать шкаф. Если описание нужно такое,то можно сделать так,как возможный вариант в жизни почти любого
*Недавно мы купили шкаф в Икее. В наборе шло много креплений и собственно части шкафа. Чтобы не переделывать потом несколько раз,мы сразу решили собирать с инструкцией. Иногда были трудности,но через некоторое время шкаф был готов.*
<em>// PascalABC.NET 3.2, сборка 1478 от 10.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>№1</em>
begin
var n:=ReadInteger('n=');
Writeln('S=',n*(n+1) div 2)
end.
<u>Пример</u>
n= 15373
S=118172251
<em>№2</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Количество отрицательных элементов построчно:');
a.Rows.Select(r->r.Where(x->x<0).Count).Println
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
88 43 64 50 -27 -9 48 55
1 40 -39 -99 -45 -54 17 -77
-33 99 -38 -19 -93 18 -19 -24
17 4 -36 90 98 69 68 35
-35 18 85 54 -74 -69 14 -62
--------------------------------
Количество отрицательных элементов построчно:
2 5 6 1 4
СРЗНАЧ - в данном случае это среднее арифметическое четырех ячеек B5:D5. Их значение равно 80, "полное" 80 * 4 = 320.
Зная значение ячейки E5, найдем значения трех ячеек B5:D5, (320 - 20)/3 = 100. Получили B5 = 100, C5 = 100, D5 = 100.
Из этого можем найти сумму B5:D5 - 100 + 100 + 100 = 300.
Ответ: 300.