М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dniil2003
dniil2003
03.02.2022 17:25 •  Алгебра

Sub макрос5() ' ' макрос5 макрос ' ' dim number as long dim names as string number = inputbox("введите номер курсанского") names = inputbox("введите фамилию имя отчество") dim sa as double dim step as long dim min_num as integer sa = number mod 10 step = 10 do dim this_num as integer this_num = ((number - number mod step) mod (step * 10)) / step sa = (sa + this_num) / 2 step = step * 10 loop while step < number first_space_index = instr(1, names, " ") last_space_index = instrrev(names, " ", len(names)) len_first_word = len(left(names, first_space_index - 1)) len_second_word = last_space_index - 1 - first_space_index len_third_word = len(names) - last_space_index if len_first_word < = len_second_word then if len_frist_word < = len_third_word then min_num = len_first_word else min_num = len_third_word end if elseif len_second_word < = len_third_word then min_num = len_second_word else min_num = len_third_word end if selection.wholestory dim words_count as integer words_count = selection.words.count selection.homekey unit: =wdstory for i = 1 to words_count selection.moveright unit: =wdword, count: =1, extend: =wdextend if len(selection.text) < = sa then selection.font.size = 18 selection.font.colorindex = wdred selection.font.spacing = 3 selection.font.bold = true end if if len(selection.text) > = min_num then selection.text = " okay " end if selection.moveright unit: =wdcharacter, count: =1 next i end sub разобраться в макросепоясните каждое действиезаранее огромное !

👇
Открыть все ответы
Ответ:
0p3n
0p3n
03.02.2022
А) 3х-8=х+6 
3*x-8 = x+6
3*x = 14 + x
2*x = 14
x = 14 / (2)

б) 7а-10=2-4а
7*a-10 = 2-4*a
7*a = 12 - 4*a
11*a = 12
a = 12 / (11)

в) 1/6y-1/2=3-1/2y
1/6*y-1/2 = 3-1/2*y
y/6 = 7/2 - y/2
2*y/3 = 7/2
y = 7/2 / (2/3)
y = 21/4


г) 2.6-0.2b=4.1-0.5b
(13/5)-(1/5)*b = (41/10)-(1/2)*b
13/5-1/5b = (41/10)-(1/2)*b
13/5-1/5b = 41/10-1/2b
-b/5 = 3/2 - b/2
3*b/10 = 3/2
3/10b = 3/2 / (3/10)
b = 5

д) p-1/4=3/8+1/2p
p-1/4 = 3/8+1/2*p
p = 5/8 + p/2
p/2 = 5/8
/2p = 5/8 / (1/2)
p = 5/4

е) 0.8-y=3.2+y
4/5)-y = (16/5)+y
4/5-y = (16/5)+y
4/5-y = 16/5+y
-y = 12/5 + y
-2*y = 12/5
-2y = 12/5 / (-2)
y = -6/5

ж) 2/7х=1/2
2/7*x = 1/2
x = 1/2 / (2/7)
x = 7/4

з) 2х-0,7=0
2*x-(7/10) = 0
2*x-7/10 = 0
2*x = 7/10
2x = 7/10 / (2)
 x = 7/20
4,7(75 оценок)
Ответ:
rimmabuketova
rimmabuketova
03.02.2022
1) 0,5(2y-1) - (0.5-0.2y)+1=0
1y-0.5-0.5+0.2y+1=0
1.2y=0
y=0
ответ: 0

2) (x² +3x+2)(x² +3x+4)=8
(x² +3x+2)(x² +3x+2+2)=8

y=x² +3x+2
y(y+2)=8
y² +2y-8=0
D=4+32=36
y₁=(-2-6)/2= -4
y₂=(-2+6)/2=2

При у= -4
x² +3x+2= -4
x² +3x+2+4=0
x² +3x+6=0
D=9-24<0
нет решений.

При у=2
x² +3x+2=2
x² +3x+2-2=0
x² +3x=0
x(x+3)=0
x=0       x+3=0
             x= -3
ответ: -3;  0.

3) (x² -2x-3)(4-x² +2x)= -2
(x² -2x-3)*(-(x² -2x-4))= -2
(x² -2x-3)(x² -2x-3-1)=2

y=x² -2x-3
y(y-1)=2
y² -y-2=0
D=1+8=9
y₁=(1-3)/2= -1
y₂=(1+3)/2=2

При у= -1
x² -2x-3= -1
x² -2x-3+1=0
x² -2x-2=0
D=4+8=12
x₁=(2-√12)/2=(2-2√3)/2=1-√3
x₂=1+√3
ответ: 1-√3;  1+√3

4) (x² -x-11)(x² -x-21)= -9
(x² -x-11)(x² -x-11-10)= -9

y=x² -x-11
y(y-10)= -9
y² -10y+9=0
D=100-36=64
y₁=(10-8)/2=1
y₂=(10+8)/2=9

При у=1
x² -x-11=1
x² -x-11-1=0
x² -x-12=0
D=1+48=49
x₁=(1-7)/2= -3
x₂=(1+7)/2=4

При у=9
x² -x-11=9
x² -x-11-9=0
x² -x-20=0
D=1+80=81
x₁=(1-9)/2= -4
x₂=(1+9)/2=5

ответ: -4; -3; 4; 5.
4,8(48 оценок)
Новые ответы от MOGZ: Алгебра
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ