<span>лрчсупгхлнг, нсптябхзу, ъзосезн
</span>
На C++:
#include <iostream>
using namespace std;
int main()
{
int count=1, min=30001, val;
do
{
cin >>val;
if(val>30000) val-=30000;
if((val<min) && (val>0)) min=val;
if(count<1000) ++count;
} while(val>0);
cout <<"Минимальный элемент: " <<min;
return 0;
}
Все приводим к основанию 2 и к битам, поскольку 8=2³, 16=2⁴, 1 байт=2³ бит,
1 Кбайт=2¹⁰ байт=2¹³ бит, 1 Мбайт=2²⁰ байт=2²³ бит
<em>// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Вводите:');
Delete(s,4,1); Delete(s,2,1);
Writeln(s)
end.
<u>Пример</u>
Вводите: Удаление пары символов
Уаение пары символов
Сканеры, устройство захвата
20 сканеров.