//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.
Cумма = Стоимость одного часа * Количество часов + Стоимость расходных материалов
Итого = ∑Сумма
т.е. для суммы: F2 = $C2*$D2+$E2 (и растягиваешь на весь столбец)
Итого: СУММ(G2:G6)
Так как мощность равна 256, то на кодирование одного символа идёт 8бит или 1 байт.
Тогда 6*30*80=14400байт
14400:1024=14,0625кБайт
Ответ 14,0625
Var x: integer;
Begin
Read (x);
If x mod 5 = 0 and x mod 13 = 0 then
Write(x);
end.