1) полносвязная, 2)звездная, 3)кольцевая, 4)шинная
Может фото??? Что решать то?!?!
F должно быть равно "1", т.к. для произведения(а факториал - это произведение) нейтральное число - "1", а для суммы - "0".
while k, нельзя преобразовать тип Integer к типу boolean в Паскале, даже если и было можно, то данная запись давала нам бесконечный цикл, нужно заменить на while k <= n
--------------------------------
k:=1; f:= 1;
while k <= n do begin
f:= f*k;
k:= k+1;
end;
Const a:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var b:integer;
begin
readln(b);
writeln(a[b]);
<span>end.</span>
<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