28800 бит/с = 3600 байт = 3,515625 Кб
Ответ: <span>а)3600 байт</span>
11010010 = 128+64+0+16+0+0+2+0 = 210
11001100 = 128+64+0+0+8+4+0+0 = 204
11001111 = 128+64+0+0+8+4+2+1 = 207
11010011 = 128+64+0+16+0+0+2+1 = 211
а = 192
б = 193
<span>...</span>
Var a,i,b:longint;
begin
b:=1;
readln(a);
for i:=2 to a do
b:=b*i;
writeln(b);
<span>end.
вторую извини, не знаю.</span>
В принципе тут все так же и пишется....
a) f:= a + b * x + c * y * z;
b) f:= ((a * x - b) * x + c) * x - d;
или если вместо квадратных скобок прямые:
f:= abs((a * x - b) * x + c) * x - d;
c) f:= a + b / c + c / a * b;
или если там есть скобки:
f:= (a + b) / c + c / (a * b)
d) f:= x + y / a1 * a2 / x - y;
write('введите a,b,c,d,x,y,z,a1,a2'); readln(a,b,c,d,x,y,z,a1,a2);
Var
s,s1:string;
i,n:integer;
begin
Write('Введите строку: '); Readln(s);
s1:='';
for i:=1 to Length(s) do s1:=s1+s[i]+s[i];
n:=Length(s1);
i:=n-(n mod 4);
while i>=4 do begin
Delete(s1,i,1);
i:=i-4
end;
for i:=Length(s1) downto 1 do Write(s1[i]);
Writeln
end.
Примеры
Введите строку: Слово
оовоолСС
Введите строку: 123456789
99877655433211