#include <iostream>
<span>#include <cstdlib>
</span><span>#include <string>
</span><span>#include "stdafx.h"
</span>int main()
{
long int i;
long int ans = 0;
string s1, s2;
std::getline(std::cin, s1)<span>;
</span>std::getline(std::cin, s2);
for (int i = 1; i <= s1.length() - 1; i++)
{
if (s1.substr(i, 2)).find(s2)) ans++
}
std::cout << ans << std::endl;
return 0;
}
для того, чтобы сохранить 1000 цифр, надо ⇒ i = 10 бит
тогда для записи идентификатора требуется 4*10+12 = 52 бит ≈ 7 байт
для 20 команд 7*20 = 140 байт
Programma написана на pascalABC, не тестил, но вродебо работает,
если не работает напишите в комментарии, какое именно число не работает
Var
v:array[1..10]of integer;
f:real;
i:byte;
a,b,c,d,min,k:integer;
begin
for i:=1 to 10 do
v[i]:=random(20)-10;
readln(d);
min:=v[1];
b:=0;
for i:=1 to 10 do begin
if v[i]<0 then begin
b:=b+1;
end;
if v[i]>min then
a:=min;
end;
k:=0;
for i:=1 to 10 do begin
if v[i]<d then
k:=k+1;
end;
c:=k;
writeln('наименьший элемент =', a);
writeln('количество отрицательных элементов =', b);
writeln('количество элементов меньших d =', c);
f:=c+(a+b)/(a*b+1);writeln(f);
end.<span>
</span>