Var ar:array[1..10] of integer;
i:integer;
begin;
randomize;
writeln('Array');
for i:=1 to 10 do
begin;
ar[i]:=random(1,10);
write(ar[i]:4);
end;
writeln;
writeln('Result:');
for i:=1 to 10 do
if ar[i] mod 2=0 then write(i:4);
<span>end.</span>
<span><span>в 16ти символьном алфавите каждый символ весит 4 бита так как 2⁴=16
(1/16)*1024*1024*8=1024*512=524288бит( 1/16 часть мегабайта перевели в биты)
524288/4=131072 символа
ответ:131072</span></span>
1 бусинка самая маленькая 2 больше 3 больше 1,2 4 больше 1,2,3 а 5 больше 1,2,3,4. А 6 может быть равна любой из 1;2;3;4;5.
Var s,s0:string;
begin
write('введите строку: ');
readln(s);
write('введите подстроку: ');
readln(s0);
if pos(s0,s)<>0 then writeln('Да') else writeln('Нет');
end.
Тест №1
введите строку: qwerty
введите подстроку: wer
Да
Тест №2
введите строку: qwerty
введите подстроку: 1wer
Нет