Program p;
var
a,s,v: real;
begin
a:=20.0;
s:=75.0;
v:=sqrt(2*a*s);
writeln ('v=',v);
readln;
end.
№10 - 8 путей
1) А-Б-Е-К
2) А-Г-В-Б-Е-К
3) А-Г-В-Ж-Е-К
4) А-Г-В-Ж-К
5) А-Г-И-К
6) А-Г-З-К
7) А-Д-И-К
8) А-Г-В-Ж-З-К
№9 - 12 путей
1) А-Б-Д-Е-З
2) А-В-Б-Д-Е-З
3) А-В-Д-Е-З
4) А-В-Е-З
5) А-В-З
6) А-Г-В-Б-Д-Е-З
7) А-Г-В-Д-Е-З
8) А-Г-В-Е-З
9) А-Г-В-З
10) А-В-Ж-З
11) А-Г-В-Ж-З
12) А-Г-Ж-З
Ответ: "о"
программирование
п о р м и о а и
иаоимроп
и о м о
омои
о о
оо
о
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Function Del2(st : String) : String;
Begin
If Length(st)>0 then Del2:=st[1]+Del2(Copy(st,3,Length(st)-2)) else Del2:='';
end;
Var
S : String;
Begin
S:='программирование';
While Length(S)>1 do S:=StRevers(Del2(S));
Writeln(S);
end.
1)4*4=16, 2^4=16 ответ 4 бита
2)2^3=8; 2^7=128 событий
3)2^3=8 ответ 3 бит
4)2^7=128 ответ 7 бит
5)4/32=1/8; 2^3=8 ответ 3 бит