Vara:integer;beginwriteln('введите a');readln(a);If (a>0) thena:=a+1;writeln(a);end.Если ты это имел ввиду
Var a:array[1..10] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a[i]);
sum:=sum+a[i];
end;
writeln(sum/10)
end.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=0;
for var i:=1 to n-1 do
for var j:=n-i to n-1 do
if a[i,j].IsEven then k+=1;
Writeln('Количество четных элементов ниже побочной диагонали: ',k)
end.
<u>Пример</u>
Количество строк (столбцов) в матрице: 7
*** Исходная матрица ***
90 57 58 49 91 -83 61
-57 70 52 90 53 -22 89
-90 -23 39 -88 28 16 -34
-65 -19 -92 -49 77 11 79
-37 -85 -5 6 -41 -75 -90
1 62 24 92 -37 88 21
-65 -47 48 -39 -46 6 38
----------------------------
Количество четных элементов ниже побочной диагонали: 11
Давай попробуем рассуждать логически.
Если бы сад состоял из двух деревьев, то было бы два варианта садов: 100+99 и 100+101. Если бы досадили третье дерево, то каждый из предыдущих садов удвоил бы число вариантов: первый 100+99+98 и 100+99+100, и так же второй 100+101+100 и 100+101+102. Подмечаем закономерность: каждое добавляемое дерево удваивает количество вариантов. А сад из одного дерева имеет лишь один вариант.
Поэтому ответ: 1 * 2 * 2 * 2 * ... (десять двоек умножаются) = 2^10 = 1024 варианта садов.
Думаю что так, если не напутал. Но ты лучше проверь за мной.
