Yekaterina_Popova1413
?>

Решите информатику: 1) Var a, b, c: integer; Begin a:=63; b:=237; c:= 35; While (a+c) Begin a:=a+6; c:=c+4; b:=b-10; End. Определи чему равна переменная b. 2) Var x, y: integer; Begin x:=0; y:=17; While x Begin x:=(x+1)*2; End. Определи чему равна переменная x.

Информатика

Ответы

prettymarina2015

#arr = [*map(int, input().split(' 0')[0].split())]  если числа вводятся в строчку , то раскомментируйте и используйте эту строку, а инициализацию массива arr и цикл while закомментируйте

arr = []

while 1:

   tmp = int(input())

   if tmp != 0:  # Читаем сколько угодно чисел пока не будет ноль

       arr.append(tmp)

   else:

       break

s = 0  # сумма двузначных чисел

k = 0  # количество двузначных чисел

for i in arr:

   if 10 <= i <= 99:  # итерируемся по циклу и если число двузначное

       s += i  # то прибавляем его к сумме

       k += 1  # счетчик двузначный чисел увеличиваем на один

print(s/k) if k > 0 else print('NO') #если количество двузначных > 0 то выводим среднее арифметическое s/k, если нет то выводим NO

Оксана170

<!DOCTYPE html>

<html lang="en">

<head>

   <meta charset="UTF-8">

   <title>Table</title>

</head>

<body>

<table border="1">

   <tr>

       <td rowspan="3">day</td>

       <td colspan="3">seminar</td>

   </tr>

   <tr>

       <td colspan="2">schedule</td>

       <td rowspan="2">topic</td>

   </tr>

   <tr>

       <td>begin</td>

       <td>end</td>

   </tr>

   <tr>

       <td>monday</td>

       <td>8</td>

       <td>5</td>

       <td>introduction to xml</td>

   </tr>

   <tr>

       <td rowspan="3">tuesday</td>

       <td>8</td>

       <td>11</td>

       <td>xpath</td>

   </tr>

   <tr>

       <td>11</td>

       <td>2</td>

       <td rowspan="2">xsl</td>

   </tr>

   <tr>

       <td>2</td>

       <td>5</td>

   </tr>

   <tr>

       <td>w</td>

       <td>8</td>

       <td>12</td>

       <td>xsl</td>

   </tr>

</table>

</body>

</html>

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

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

Решите информатику: 1) Var a, b, c: integer; Begin a:=63; b:=237; c:= 35; While (a+c) Begin a:=a+6; c:=c+4; b:=b-10; End. Определи чему равна переменная b. 2) Var x, y: integer; Begin x:=0; y:=17; While x Begin x:=(x+1)*2; End. Определи чему равна переменная x.
Ваше имя (никнейм)*
Email*
Комментарий*

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

stusha78938
pokupatel688
treneva359
Nikolaevna Malika1511
Владислав-Аветисян217
Поликарпова-Мазурова
нарисовать флаг конго в Pascal abc​
Viktorovna_Yurevna
st7307
annapiskun1
ska67mto3983
ИвановичБогословский280
sychevao19975
vgolentsova
m-zolotukhina2
Nivanova995