sahabiev1987
?>

Что означает оператор inc в паскале в данном случае и на сколько увеличение?Var A:array[1..20, 1..20] of integer; i, j, n, k, s:integer; Begin write('Введите размерность: ');readln(n); For i:=1 to n do Begin For j:=1 to n do Begin A[i, j]:=random(31)-15; write(A[i, j]:4); End; writeln; End; k:=0;s:=0; For i:=1 to n do For j:=1 to n do if (i0) then Begin inc(k); s:=s+A[i, j]; End; writeln('Сумма положительных над главной диагональю: ', s); writeln('Кол-во положительных над главной диагональю: ', k); readln; End.

Информатика

Ответы

bas7572513

a = int(input())

for i in range(a):

 b = input()

 c = 0

 d = True

 e = 0

 f = False

 g = False

 h = '\''

 for j in b:

   if j == '#' and not f:

     g = True

     break

   elif j != ' ':

     if d:

       print(' ' * c, end='')

     elif c > 0:

       print(' ', end='')

     c = 0

     print(j, end='')

     if(j == '\"' or j == '\'') and e % 2 == 0:

       if f and j == h:

         f = False

       else:

         f = True

         h = j

     if f:

       d = True

     else:

       d = False

     if j == '\\':

       e += 1

     else:

       e = 0

   else:

     c += 1

   r = j == ' '

if g and c > 1:

 print(' ', end='')

if i < a - 1:

 print()

1

Объяснение:

kazan-ugoop36

def print_num_sys(num, radix):

if (radix == 2):

print("Число {0:d} в двоичной системе счисления равно: {0:#b}".format(num))

elif (radix == 8):

print("Число {0:d} в двоичной системе счисления равно: {0:#o}".format(num))

elif (radix == 10):

print("Число {0:d} в двоичной системе счисления равно: {0:d}".format(num))

elif (radix == 16):

print("Число {0:d} в двоичной системе счисления равно: {0:#x}".format(num))

else:

print("Оcнование системы счисления задано не верно")

x = int(input("Введите целое число: "))

print_num_sys(x, 2)

print_num_sys(x, 8)

print_num_sys(x, 10)

print_num_sys(x, 16)

print_num_sys(x, 11)

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Что означает оператор inc в паскале в данном случае и на сколько увеличение?Var A:array[1..20, 1..20] of integer; i, j, n, k, s:integer; Begin write('Введите размерность: ');readln(n); For i:=1 to n do Begin For j:=1 to n do Begin A[i, j]:=random(31)-15; write(A[i, j]:4); End; writeln; End; k:=0;s:=0; For i:=1 to n do For j:=1 to n do if (i0) then Begin inc(k); s:=s+A[i, j]; End; writeln('Сумма положительных над главной диагональю: ', s); writeln('Кол-во положительных над главной диагональю: ', k); readln; End.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Fedorovich_Aleksandrovich685
llipskaya
nadjasokolova2017
alexey
vusokaya13
Nikishina
andyrvo
st-op767840
Urmanov19903131
polina3mag
Nikolaevna1623
Давид-Александр
Марина
vakhitov100961
innesagrosheva22