5) a1:=1/x
a2=(1/x)/x=1/x^2
a3=(1/x^2)/x=1/x^3
a4=(1/x^3)/x=1/x^4
y=(1/x)+(1/x^2)=(x+1)/x^2
y=(x^2+x+1)/x^3
y=(x^3+x^2+x+1)/x^4
6) Ответ: 14
7) 5 суток = 5*24*60 = 5*24*60*60 сек
8) хз
9) Var a,b,c,s,x: integer;
begin
x:=125;
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
s:=a+b+c;
writeln(a);
writeln(b);
writeln(c);
writeln(s);
<span> end.</span>
Количество символов =
=1,5*20*15=30*15=450 (всего символов в тексте)
1) Если один символ кодируется 8-ью битами, то
количество информации = 8*450 =3600 бит = 450 байт
2) Если один символ кодируется 16-тью битами, то
количество информации=
16*450 =7200 бит =900 байт
Вариант реализованный в Excel
Лист защищен без пароля, чтобы случайно не повредить формулы.
Формулы можно увидеть в строке формул.
Все во вложении,там в ворде блок схема,в тестовике прога,просто формат на bas поставь и компилируй свободно
Сама прога:
PRINT "Vvedite chislo x!"
INPUT x
CLS
SCREEN 12
IF x > 0 THEN
CIRCLE (15, 20), 5, 15
ELSE
LINE (15, 200)-(200, 300), 5, BF
END IF
END
var n,i:integer;
Begin
read(n);
for i:= 2 to n-1 do
if n mod i = 0 then writeln('No');
End.
var n,i:integer;
s:string;
Begin
read(s);
for i:= 1 to length(s) do
if s[i]="a" then n:=n+1;
writeln(n);
End.