-
(6 4/5-2 3/4) : (2 16/21 + 3 2/3)
по действиям!
заранее огромное спасибо!)-
Предмет:
Математика -
Автор:
lillienorton - 6 лет назад
-
Ответы 1
-
вначале находим общий знаменатель:1)6 4/5-2 3/4=6 16/20-2 15/20=4 1/202)2 16/21+3 2/3=2 16/21+ 3 14/21=6 9/213)4 1/20÷6 9/21=81/20×21/135=63/100=0,63
-
Автор:
smileyazac - 6 лет назад
-
0
-
-
Добавить свой ответ
Еще вопросы
-
две гусеницы одновременно начали заползать на цветок. через 36 секунд одна гусеница оказалась на вершине цветка, а ещё через 24 секунды вторая. на какую часть всего пути первая гусеница опережала вторую на каждую секунду
-
Предмет:
Математика -
Автор:
mcclure - 6 лет назад
-
Ответов:
1 -
Смотреть
-
-
Синтаксический разбор предложения дети любят хорошие книги
-
Предмет:
Русский язык -
Автор:
rishikrause - 6 лет назад
-
Ответов:
2 -
Смотреть
-
-
просклоня́йте слово́ мышь
-
Предмет:
Русский язык -
Автор:
jacquelynfitzpatrick - 6 лет назад
-
Ответов:
1 -
Смотреть
-
-
НАПИСАТЬ СЛОВЕСНЫЕ АЛГОРИТМЫ К ДАННЫМ ПРОГРАММАМ, ПОМОГИТЕ!!!
Private Sub CommandButton1_Click()
'Объявление переменных
Dim A As Integer, S As Integer
'Ввод исходных данных
A = Val(Cells(2, 2).Value)
S = 0
i = 0
'Рассчет
While S < A
S = S + 1
i = i + 1
'Вывод результатов
Cells(i + 1, 1).Value = Str(S)
Wend
End Sub
-------------------------------------------------
Private Sub CommandButton1_Click()
'Объявление переменных
Dim R2 As Single, R3 As Single
Dim R1beg As Single, R1End As Single, dR1 As Single
Dim R12 As Single, R13 As Single, R23 As Single
'Ввод исходных данных
R2 = Val(Cells(3, 1).Value)
R3 = Val(Cells(3, 2).Value)
R1beg = Val(Cells(3, 3).Value)
R1End = Val(Cells(3, 4).Value)
dR1 = Val(Cells(3, 5).Value)
'Расчет
NumRow = 6
For R1 = R1beg To R1End Step dR1
R12 = R1 + R2 + (R1 * R2 / R3)
R13 = R1 + R3 + (R1 * R3 / R2)
R23 = R2 + R3 + (R2 * R3 / R1)
Cells(NumRow, 1).Value = Str(R1)
Cells(NumRow, 2).Value = Str(R12)
Cells(NumRow, 3).Value = Str(R13)
Cells(NumRow, 4).Value = Str(R23)
NumRow = NumRow + 1
Next R1
End Sub
Private Sub CommandButton2_Click()
For i = 1 To 5
Cells(3, i).Value = ""
Next i
For j = 6 To 16
Cells(j, 1).Value = ""
Next j
For k = 6 To 16
Cells(k, 2).Value = ""
Next k
For A = 6 To 16
Cells(A, 3).Value = ""
Next A
For b = 6 To 16
Cells(b, 4).Value = ""
Next b
End Sub-
Предмет:
Информатика -
Автор:
bella53 - 6 лет назад
-
Ответов:
1 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35934 -
Askold
2792 -
Pikachu
2228 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1158 -
Poinntt
946 -
Bars
930 -
Queenmagic18
770
How much to ban the user?
1 hour
1 day
100 years