12-2
13- E:\Класс7\Физика\Задача5.doc
14- E:\TOM3\Doc3.doc
Правильный ответ в:
<span>C:/ day/ games/ tetris.com
диск каталог подкаталог файл</span>
Если взять за константу тот факт что пустые значения пустые по определению и не несут никакой информации, то - 4х4 легкими расчетами дает нам 16 различных вариантов, следовательно это 2 в 4 степени, а насколько помню, количество информации измеряется в битах(двоичный код(бинари диджит)) следовательно ровно 4 бита и будет
№ 2
var
n,i,j:integer;
s,s1:string;
begin
readln(S);
for n:=1 to 9 do
begin
str(n,s1);
for i:=1 to length(S) do
if s[i]=s1 then
inc(j);
writeln('Цифр ',n,' всего ',j);
j:=0;
end;end.
<span>№4
</span>var
<span>a:array[1..100] of integer;
kmax,max,i,n:integer;
begin
readln(n);
read (a[1]);
max:=a[1];
kmax:=1;
for i:=2 to n do
begin
read(a[i]);
if a[i]=max then
inc(kmax);
if a[i]>max then
begin
max:=a[i];
kmax:=1;
end;
end;
writeln;
writeln('Максимальное число =',max,' В массиве оно встречается ',kmax,' раз');
<span>end.</span></span>
Никак, компьютер его просто преобразует в формат изображения, а потом если потребуется то он выведет его.