Бинарные строки ограничение по времени на тест: 3 секунды ограничение по панти на тест: 256 мегабайт оро стандартный ввод вывод стандартный вывод Строка называется бинарной, если она состоит только из символов 0 и 1. Строка v называется подстрокой строки w , если она имеет ненулевую длину, и её можно прочитать, начиная снекоторой позиции строке w . Например, у строки «010» существует шесть подстрок «0», «1», «0», «01», «10», «010». Две строки считаются различными, если они начинаются разных позициях, либо меют разную длину. Другими словами: каждая подстрока учитывается столько раз, сколько она встречается в исходной строке. Дана бинарная строка s. Ваша задача-найти количество се подстрок, которых ровно единиц. Входные данные Первая строка содержит число k(0<=k<=10^6)-необходимое количество единиц в подстроках. Вторая строка содержит непустую бинарную строку s. Длина строка не превосходит 10 Выходные данные Выведите количество подстрок, содержащих ровно K единиц.

Код#include <iostream>constexpr double bites_to_megabytes(double a) {    return a / 8388608;}constexpr double megabytes_to_gigabytes(double a) {    return a / 1024;}int main() {    long long a;    short type;    bool is_correct = false;    double answer;    do {        std::cin >> a;        std::cout << "[1] Megabytes \n"                  << "[2] Gigabytes \n"                  << "Convert to [1] or [2]: ";        std::cin >> type;        if (type == 1 or type == 2) {            is_correct = true;        } else {            std::cout << "Meh. Try to type again. \n" << std:: endl;        }    } while (!is_correct);    switch (type) {        case 1:            answer = bites_to_megabytes(a);            break;        case 2:            answer = megabytes_to_gigabytes(bites_to_megabytes(a));            break;    }    std::cout << "An answer of conversion is " << answer << std::endl;    return 0;}

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Дополните до ста! ***');
  Writeln('Вам будут предлагаться числа, которые нужно дополнять до 100');
  Writeln('Для завершения работы введите 0');
  var a,q,k,m:integer;
  k:=0; m:=0;
  repeat
    q:=Random(1,99);
    Print(q); Read(a);
    if a=0 then break;
    if a=100-q then begin
      m+=1;
      Writeln('Это правильный ответ')
      end
    else Writeln('Это неправильный ответ, ',100-q);
    k+=1;
  until false;
  Writeln('Задано вопросов- ',k,', верных ответов- ',m,' (',100*m/k:0:1,'%)')
end.

Пример
*** Дополните до ста! ***
Вам будут предлагаться числа, которые нужно дополнять до 100
Для завершения работы введите 0
80 20
Это правильный ответ
5 95
Это правильный ответ
51 49
Это правильный ответ
4 95
Это неправильный ответ, 96
90 10
Это правильный ответ
11 0
Задано вопросов- 5, верных ответов- 4 (80.0%)