Формула I=K*i где I это объём информации, K количество символов в сообщении(включая пробелы, знаки вопроса, кавычки и т.д) и i это информационный объём одного символа.
тогда K=29(не брал в счёт кавычки и знак вопроса), а i=8бит тогда 29*8=232бита
инфо.объём равен 232 бита
чесно говоря без них куда легче
var s:string;
i:integer;
Begin
read(s);
for i:= 1 to length(s) do
if i mod 2 = 0 then s[i]:='*';
writeln(s);
End.
с ними только больше кода
var s:string;
i:integer;
Begin
read(s);
for i:= 1 to length(s) do
if i mod 2 = 0 then begin
Delete(s,i,1);
Insert('*',s,i);
end;
writeln(s);
End.
1)
uses crt;
const n=8;
var i:integer;
a:array[1..n] of integer;
begin
writeln('Input elements.');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]<0 then
write(a[i],' ');
<span>end.
2)
uses crt;
const n=10;
var i,t:integer;
a:array[1..n] of integer;
begin
randomize;
t:=0;
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(10,1);
write(a[i],' ');
if a[i] mod 2=0 then
t:=t+1;
end;
writeln(#13#10,t);
<span>end.
3)
uses crt;
const n=10;
var i,sum,t:integer;
a:array[1..n] of integer;
begin
randomize;
sum:=0;
t:=0;
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(10,1);
write(a[i],' ');
if a[i] mod 2=0 then
sum:=sum+a[i]
else
t:=t+1;
end;
writeln(#13#10,sum,' ',t);
<span>end.
</span>4)
uses crt;
const n=10;
var i:integer;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10,1);
write(a[i],' ');
if a[i] mod 2=0 then
a[i]:=2*a[i]
else
a[i]:=3*a[i];
end;
write(#13#10);
for i:=1 to n do
write(a[i],' ');
<span>end.</span>
</span></span>
