<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadString.Matches('\d').Count.Println
end.
<u>Пример</u>
Сегодня 10.02.2018г., время 23:32
12
1017,2 = 1*8^3 +1*8^1+7*8^0 + 2*8 +2*8^(-1)=527,125
111 это в двоичной? если да тогда 111=2^0+2^1+2^2=1+2+4=7
В=11 это запомнить надо
Const nx=20;var i,j,n:integer; D:array[1..nx,1..nx] of integer;pG,pP:double;m:boolean;begin
write('Введите размер массива n');Readln(n);pG:=1;pP:=1;
for i:=1 to n do begin
for j:=1 to n do begin
Readln(D[i,j]);//D[i,j]:= random(35)-15;end;end;writeln;
for i:=1 to n do beginfor j:=1 to n do begin
write(D[i,j]:4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to n do begin
if i < n-j+1 then begin write(D[i,j]:4); pP:= pP * D[i,j];end else write(' ':4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to n do begin
if i <j then begin write(D[i,j]:4); pG:= pG * D[i,j];end else
write(' ':4);end;writeln;end;writeln;
writeln('произведение элементов массива над главной диагональю =',pG);writeln('произведение элементов массива над побочной диагональю =',pP);if pG = pP then m:= true
else m:= false;writeln('Высказывание =', m);<span>end.</span>
Все что уже написано или сказано, оно никогда не забудеться и его нечем не стереть даже топором. Я согласен с этим высказыванием.