<span>int main()
</span>{
int a[30] = {45, 42, 33, 54, 55, 56, 57, 58, 59, 54, 45, 42, 33, 54, 55, 56, 57, 58, 59, 54, 45, 42, 33, 54, 55, 56, 57, 58, 59, 54};
int n=0;
for (int i=0; i<30; i++)
{
if ((a[i]>50)&&(a[i]<=57)) {n++;}
}
printf("%d "<span>, n); n - количество спортсменок с нужным весом</span>
}
Левой рисуют, а если нажать на правую можно выбрать функции (вроде так).
<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3><h2>С массивом</h2>
begin
var a := ReadArrInteger(ReadlnInteger);
var (i, v) := a.Numerate.Where(t -> t[1].IsEven and (t[1] mod 10 = 8))
.MinBy(t -> t[1]);
i.Println
end.
<h2>С последовательностью</h2>
begin
var (n, min, i, imin) := (ReadlnInteger, integer.MaxValue, 1, 1);
var s := ReadSeqInteger(n);
foreach var t in s do
begin
if (t < min) and t.IsEven and (t mod 10 = 8) then
(min, imin) := (t, i);
Inc(i)
end;
imin.Println
end.
Переведём Кбайт в бит.
6 Кбайт = 6 * 1024 * 8 = 49152 бита
1 символ занимает 16 бит.
49152 / 16 = 3072
Ответ: 3072 символа