<span>Var
Text, Slovo, max:string;
Begin
WriteLn('Введите строку, разделенную пробелами: '); ReadLn(Tex);
Text:= Text + ' ';
max:='';
While Pos(' ',Text) <> 0 do
Begin
</span>Slovo<span>:= Copy(Text, 1, Pos(' ',Text) - 1);
Delete(Text, 1, Pos(' ',Text));
if Length(</span><span>Slovo</span><span>) > Length(max)
then max:= </span>Slovo<span>;
End;
WriteLn('Самое длинное слово: " ',max,' " его длина ',Length(max));
ReadLn;
End.</span>
Var x,y: real;
<span>begin
</span><span> write('x y через пробел: '); readln(x,y);
</span><span> if ((-6<=x) and (x<=1) and (-3<=y) and (y<=7)) and
</span><span> not ((-3<x) and (x<=1) and (-3<=y) and (y<2)) then
</span><span> writeln('точка принадлежит области')
</span><span> else writeln('точка не принадлежит области');
</span><span>end.
</span>x y через пробел: -2 1.5
<span>точка не принадлежит области
</span>x y через пробел: - 4 5
<span>точка принадлежит области
</span>
Var n, s, b: integer;
begin
read(n);
for var i := 1 to n do
begin
b:=1;
for var j := 1 to i do
begin
b *= j;
end;
s += b;
end;
write(s);
end.
Количество каналов =2 (стерео)
t=1,5 мин =1,5*60 с = 90 с
Н =36 КГц =36*1000 Гц=9*4*8*125 1/с=9*125*2^5 1/c = 1125*2^5 1/c
F=2 *8*90*1125*2^5 бит=1125*45*2^4*2^5 бит=50625*2^10 бит =
= 6328,125 Кбайт =6,2 Мбайта