Setpencolor(clцвет)
Setpenwidth(размер)
const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(11)+10;
write(a[i]:3,' ')
end;
writeln;
write('x = ');
readln (x);
for i:=1 to n do if a[i]=x then writeln('A[',i,'] = ',a[i])
end.
Если дракону сто лет или меньше, то у него 3N голов.
Если ему больше ста лет, то у него 300+2(N-100) голов.
Program chik;
var c:array[1..1000,1..1000]of longint;
n,m,i,j,p:longint;
begin
read(n,m);
for i:=1 to n do
beginf
or j:=1 to m do
begin
read(c[i,j]);
end;
end;
for j:=1 to m do
begin
p:=c[3,j];
c[3,j]:=c[5,j];
c[5,j]:=p;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(c[i,j]:3,' ');
end;
writeln;
end;
end.<span>
</span>
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 31 шт
i = 8 бит
I - ?
Решение:
I = K * i = 31 * 8 бит = 248.0 бит