Для символа в алфавите из 32 символов (32=2^5) требуется 5 бит, поэтому весь текст займет 5*49152 = 245760 бит. Или, поделив на 1024, получим 240 Кбит. В байте 8 бит, поэтому еще надо поделить результат на 8. Окончательно получим 30 Кбайт.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var m:=Readinteger('Что ищем?');
var k:=a.FindAll(x->x=m).Count;
Writeln('Найдено таких элементов- ',k);
if k>0 then Writeln('Номер первого такого элемента- ',
a.FindIndex(x->x=m)+1)
end.
<u>Пример</u>
n= 17
-46 33 -9 -22 14 -46 -6 -3 -7 -18 46 42 -40 -40 0 29 -9
Что ищем? -9
Найдено таких элементов- 2
Номер первого такого элемента- 3
Пояснение ребуса:
При "н" "т" катЕР
Ответ: принтер.
Program n1;
var i,a,kn,pp,n: integer;
begin
write('введите кол-во чисел: ');
readln(n);
pp:=1;
kn:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a);
if a mod 2<>0 then kn:=kn+1;
if a>0 then pp:=pp*a;
end;
writeln('кол-во неч. чисел: ',kn);
writeln('произв. пол чисел: ',pp);
end.
#incluide
void main( )
{
int a,b;//описание переменных
scant("%d%d",b);&//ввод
printf("a=%d b=%d",a,b)//вывод
}