Только за январь нет оплаты т.к нет предыдущих показаний
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
<span><span /></span>
<span><span><span><span>
Дни
</span><span>
Высота (см)
</span></span><span><span>
Первый
</span><span>
- 180
</span></span><span><span>Второй
- </span><span> 182
</span></span><span><span>
Третий
</span><span>
- 184
</span></span><span><span>
Четвертый
</span><span>
- 186
</span></span><span><span>
Пятый
</span><span>
- 188
</span></span><span><span>
Шестой
</span><span>
- 190
</span></span><span><span>
Седьмой </span><span>- 192
</span></span></span></span>
(b * 13 + a * 53 - d) / (a * 7 + 8)
Его можно записать так : либо x^(1/5) или просто 1/5