a8 2 по формуле обьема=время*канальность*глубину*частоту дис.
a9 2 по правилу фано или фоно,чтобы буква не была началом другой буквы
a10 1 т.к импликация ложна только тогда когда а истина б лож=>на согл и 6 букв,но 4 должна быть гласной
a11 4
Var a:string;
begin
writeln('Введите строку');
readln(a);
write(a[2]);
write(a[length(a)-1]);
<span>end.
</span>
Var
a,b,c,d:integer;
begin
c:=1;
b:=0;
while a<>1 do begin
readln(a);
if a mod 2 <> 0 then begin
b:=b+1;
if b<=10 then c:=c+a;
end;
c:=c*a;
end;
writeln(b,' ',c);
end.
<span><span><em>function proverka(i :integer):boolean;
</em>
<em>begin
if i mod 2=0 then
</em>
<em>proverka:=true
</em>
<em>else
</em>
<em>proverka:=false;
</em>
<em>end;</em></span></span>
uses Crt;
var i, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=100 to 200 do
if (i mod 2)=0 then Sum:= Sum+i;
WriteLn (' Sum = ', Sum);
ReadLn;
<span>end.</span>