kat247
14.11.2020 14:50

Древнее зло пробудилось! Нашему герою пора собираться в путь и зачистить опасное подземелье, спустившись на самый последний этаж подземелья, по пути побеждая множество монстров. Но прежде чем спускаться, герою необходимо купить у торговца зелья исцеления, при этом потратив минимальное количество золота! Механика боя происходит таким образом: герою и врагу одновременно наносится урон в размере количества урона у врага и героя соответственно, а далее, если количество жизней у кого-либо опускается до нуля и ниже, то он погибает. Характеристики героя таковы: 1000 хп, 10 урона. На этаже спавнится один монстр. Нам известна логика спавна всех монстров:

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
taitpaev2003
17.08.2022 02:35

def cylinder():

r = float(input())

h = float(input())

# площадь боковой поверхности цилиндра:

side = 2 * 3.14 * r * h

# площадь одного основания цилиндра:

circle = 3.14 * r**2

# полная площадь цилиндра:

full = side + 2 * circle

return full

square = cylinder()

print(square)

Пример выполнения:

3

7

188.4

В данной программе в основную ветку из функции возвращается значение локальной переменной full. Не сама переменная, а ее значение, в данном случае – какое-либо число, полученное в результате вычисления площади цилиндра.

В основной ветке программы это значение присваивается глобальной переменной square. То есть выражение square = cylinder() выполняется так:

Вызывается функция cylinder().

Из нее возвращается значение.

Это значение присваивается переменной square.

Этот мой ответ и он официальный и копированию не подлежит! ©

0,0(0 оценок)
Ответ:
Давидычь
26.03.2020 23:48
1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота