int main(int argc, char* argv[])
{
char s[256] = {0};
char prevChar = {0};
std::cin >> s;
int len = strlen(s);
prevChar = s[0];
int count = 1;
for (int i = 1; i < len+1; i++)
{
if (s[i] == prevChar) {
count++;
} else {
printf("%d %c\n", count, prevChar);
count = 1;
prevChar = s[i];
}
}
return 0;
}
Var
i:integer;
a:array[4..9]of integer;
begin
writeln('Исходный массив:');
for i:=4 to 9 do
begin
a[i]:=random(1,10);
write(a[i]:4);
end;
for i:=4 to 9 do
if a[i]<5 then a[i]:=a[i]-1;
writeln;
writeln('Преобразованный массив:');
for i:=4 to 9 do
write(a[i]:4);
<span>end.</span>
Примеры исполнителей:
- Человек;
- Животное;
- Техническое устройство.
Переведем Кбиты/с в кБ/с (килобайты в секунду, далее просто кБ/с), для этого разделим скорость на 8.
800 Кбит/с : 8 = 100 кБ/с.
Далее 160 Мб переведем в кБ, 160 * 1024 = 163840 кБ.
Рассчитаем время, для этого 163840 кБ : 100 кБ/с = 1638,4 секунд. Переведем в минуты, если нужно: 27 минут - приблизительно.
<em>Ответ приблизительный: 27 минут или 1638,4 секунд</em>
<em>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*n*'-');
Writeln('Средние значения по столбцам');
a.Cols.Select(col->col.Average).Println
end.
<u>Пример</u>
Количество строк и столбцов в матрице: 6 7
*** Исходная матрица ***
-70 66 -81 -2 42 22 -7
-42 4 -27 32 6 -38 -81
-22 -60 -65 -26 -87 2 -49
-59 -48 -5 -11 38 -27 98
-94 -47 86 -11 -13 -92 -43
-92 89 -58 37 20 -14 -45
----------------------------
Средние значения по столбцам
-63.1666666666667 0.666666666666667 -25 3.16666666666667 1 -24.5 -21.1666666666667