LolaTi
30.01.2023 00:25

Осень — время, когда часто отключают горячую воду. Впрочем, дома у Кеши имеется водонагреватель накопительного типа, так что по поводу отключений он переживает не очень сильно. Включив водонагреватель, Кеша считает правильным дождаться его полного нагрева. Для этого
требуется k минут, при этом каждую минуту водонагреватель потребляет w ватт.
Дома у Кеши установлен двухфазный счетчик электроэнергии. Согласно тарифам, начиная с
момента времени h1 часов m1 минут и до момента времени h2 часов m2 минут, электроэнергия
обходится в p копеек за ватт, а в остальное время — в q копеек за ватт.
Кеша включил водонагреватель в момент времени s часов u минут. Ваша задача — определить,
сколько (в копейках) будет стоить полный нагрев.
Формат входных данных
В первой строке содержится целое число k (1 6 k 6 106
) — время (в минутах), необходимое для
полного нагрева водонагревателя.
Во второй строке содержится целое число w (1 6 w 6 106
) — количество ватт, потребляемое
водонагревателем в минуту.
В третьей строке содержится целое число p (1 6 p 6 106
) — стоимость ватта согласно первому
тарифу.
В четвёртой строке содержится целое число q (1 6 q 6 106
) — стоимость ватта согласно второму
тарифу.
В пятой строке содержится целое число h1 (0 6 h1 6 23), а в шестой строке содержится целое
число m1 (0 6 m1 6 59) — час и минута, в которые начинает действовать тариф в p копеек за ватт.
В седьмой строке содержится целое число h2 (0 6 h2 6 23), а в восьмой строке содержится целое
число m2 (0 6 m2 6 59) — час и минута, в которые начинает действовать тариф в q копеек за ватт.
В девятой строке содержится целое число s (0 6 s 6 23), а в десятой строке содержится целое
число u (0 6 u 6 59) — час и минута, в которые Кеша включает водонагреватель.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Юрий210404
07.11.2022 12:55
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
const
  n=5;
type
  Matrix=array[1..n,1..n] of integer;

procedure DummySchool(var a:Matrix);
begin
  Writeln('Ввод элементов матрицы');
  for var i:=1 to n do begin
    Write(n,' элементов строки ',i,': ');
    for var j:=1 to n do Read(a[i,j]);
    end;
  Writeln('Сформирована матрица ',n,'x',n);
  for var i:=1 to n do begin
    for var j:=1 to n do Write(a[i,j]:5);
    Writeln
    end
end;

begin
  var B:Matrix;
  DummySchool(B);
  var sn:=0;
  var sp:=0;
  for var i:=1 to n do
    for var j:=1 to n do
      if B[i,j]<0 then sn+=B[i,j]
      else
        if B[i,j]>0 then sp+=B[i,j];
  Writeln('Сумма отрицательных ',sn);
  Writeln('Сумма положительных ',sp)
end.

Тестовое решение:
Ввод элементов матрицы
5 элементов строки 1: 6 23 -5 13 9
5 элементов строки 2: 42 0 -38 16 37
5 элементов строки 3: -5 -18 3 11 8
5 элементов строки 4: 9 13 -11 0 3
5 элементов строки 5: 19 -17 0 15 5
Сформирована матрица 5x5
    6   23   -5   13    9
   42    0  -38   16   37
   -5  -18    3   11    8
    9   13  -11    0    3
   19  -17    0   15    5
Сумма отрицательных -94
Сумма положительных 232
0,0(0 оценок)
Ответ:
qwerty854
05.10.2022 01:35
<?php
echo "Исходный массив:";
$n = rand(1,13);
$S = 0;
for($i = 0; $i < $n; $i++)
{
   $A[] = rand(-10,10);
   $S+=$A[$i];
   echo " $A[$i]";
}
echo "<br>Сумма элементов = $S<br>";

$k = -1;
for($i = $n-1; $i >= 0; $i--)
   if ($A[$i] < 0) $k = $i;
if ($k == -1) echo "В массиве нет отрицательных элементов";
else echo "№ первого отрицательного: $k";
$Sr = $S/$n;
echo "<br>Sr = $Sr<br>";
$B = 0;
$C = 0;
for($i = 0; $i < $n; $i++)
{
   if ($A[$i] < $Sr) $B = $i;
   if ($A[$i] > $Sr) $C = $i;
}
echo "№ элемента, превышающего Sr: $C<br>";
echo "№ элемента, который меньше Sr: $B";
?>
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота