<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк/столбцов в таблице:');
var a:=MatrRandom(n,n,0,1);
a.Println(2); Writeln(2*a.ColCount*'-');
// 1
var k:=0;
for var i:=0 to a.RowCount-1 do
for var j:=0 to a.ColCount-3 do
if (a[i,j]=0) and (a[i,j+1]=0) and (a[i,j+2]=0) then begin
k+=1; break
end;
Writeln('1: ',k);
// 2
k:=0;
for var j:=0 to a.ColCount-1 do
if (a[0,j]=0) and (a[1,j]=1) then begin
var (i,flag):=(2,True);
while i<=a.RowCount-2 do begin
if not ((a[i,j]=0) and (a[i+1,j]=1)) then
begin flag:=False; break end
else i+=2
end;
if flag then k+=1
end
else
if (a[0,j]=1) and (a[1,j]=0) then begin
var (i,flag):=(2,True);
while i<=a.RowCount-2 do begin
if not ((a[i,j]=1) and (a[i+1,j]=0)) then
begin flag:=False; break end
else i+=2
end;
if flag then k+=1
end;
Writeln('2: ',k);
// 3
var r0:=a.Rows.Where(row->row.All(t->t=0)).Count;
var c1:=a.Cols.Where(col->col.All(t->t=1)).Count;
Writeln('3: Нулевых строк ',r0,', единичных колонок ',c1)
end.
<u>Пример</u>
Количество строк/столбцов в таблице: 4
1 1 0 1
0 0 0 1
1 1 1 1
0 1 1 1
--------
1: 1
2: 1
3: Нулевых строк 0, единичных колонок 1
Это не знак деления, а двоеточие.
В программировании знаком деления является косая черта дроби "/".
При выводе данных можно указать, сколько ячеек (знако-мест) на экране следует отвести для выводимого значения. Это бывает полезно, если, например, ты выводишь на экран таблицу. в которой все элементы должны иметь одну ширину.
writeln(x:4:1,' | ',y:5:2);
Здесь под дробное число x (икс) выделяется четыре знако-места. При этом значение икса округляется до одного знака после запятой. Этот один знак будет выводиться в любом случае — даже если икс целый.
Например, если x = 3, то на экран он выведется так: _ 3 . 0
_ — это как бы пробел.
Для значения y (игрек) выделяется пять знако-мест, а округление идет до двух знаков после запятой.
Например: _ 4 . 1 5
Любая ЭВМ обрабатывает информацию в машинном коде(двоичном)
<span>function f1(t1){
if((t1/2)==parseInt(t1/2)) return "Число чётное"; else return "Число нечётное";
}
var a=prompt("Введите число");
alert(f1(a));<span>
</span></span>
Самое простое – так: m1 ~ V1; m2 ~ V2. => V1*t1 + V2*t2 = (V1+V2)*t3, откуда: {сразу ставлю цифры}:
<span>t3 = (14+250)/6 = 264/6 = 44°С</span>
