Ответы Mail.ru
О проектах Mail.ru
Ответы Mail.ru
Агент Mail.ru
Облако Mail.ru
Мой Мир Mail.ru
Почта Mail.ru
DonationAlerts
Новости Mail.ru
ICQ
Прочие проекты
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Лучший ответ
Знойный хомячок
(99774)
1 год назад
Один подарок подарил.
Остальных поздравил через
почту.
Лучше добавьте приложение,
что бы люди сами делали подарки,
как в одноклассниках.
Остальных поздравил через
почту.
Лучше добавьте приложение,
что бы люди сами делали подарки,
как в одноклассниках.
АгурчекМастер (1284)
1 год назад
Как в одноклассниках или в вк - устаревшая модель, которой пользуются люди, возраста 30+. Лучше направить деньги и человеко-часы на устранение ошибок.
Артём Калинин
Ученик
(109)
Агурчек, Dim T(7, 3) As Integer
Dim i As Byte
Dim j As Byte
Dim s As Integer
Dim ST As Single
Private Sub CommandButton1_Click()
Cells(2, 3) = "Утром"
Cells(2, 4) = "В обед"
Cells(2, 5) = "Вечером"
For i = 1 To 7
For j = 1 To 3
T(i, j) = Val(InputBox("Введите показания за день"))
Cells(i + 2, j + 2) = T(i, j)
Next j
Next i
For i = 1 To 7
s = 0
For j = 1 To 3
s = s + T(i, j)
ST = CInt(s / 3)
Cells(10, 2) = "Среднее значение"
Cells(10, 4) = ST
Next j
Next i
Артём КалининУченик (109)
1 год назад
Dim T(7, 3) As Integer
Dim i As Byte
Dim j As Byte
Dim s As Integer
Dim ST As Single
Private Sub CommandButton1_Click()
Cells(2, 3) = "Утром"
Cells(2, 4) = "В обед"
Cells(2, 5) = "Вечером"
For i = 1 To 7
For j = 1 To 3
T(i, j) = Val(InputBox("Введите показания за день"))
Cells(i + 2, j + 2) = T(i, j)
Next j
Next i
For i = 1 To 7
s = 0
For j = 1 To 3
s = s + T(i, j)
ST = CInt(s / 3)
Cells(10, 2) = "Среднее значение"
Cells(10, 4) = ST
Next j
Next i
Dim i As Byte
Dim j As Byte
Dim s As Integer
Dim ST As Single
Private Sub CommandButton1_Click()
Cells(2, 3) = "Утром"
Cells(2, 4) = "В обед"
Cells(2, 5) = "Вечером"
For i = 1 To 7
For j = 1 To 3
T(i, j) = Val(InputBox("Введите показания за день"))
Cells(i + 2, j + 2) = T(i, j)
Next j
Next i
For i = 1 To 7
s = 0
For j = 1 To 3
s = s + T(i, j)
ST = CInt(s / 3)
Cells(10, 2) = "Среднее значение"
Cells(10, 4) = ST
Next j
Next i
Остальные ответы
Björn Andersson
(22815)
1 год назад
Подарил, но не получил взамен. Суровые реалии.
ВАС ИС ДАСМудрец (16403)
1 год назад
Нерусь поьамушта
Björn Andersson
Просветленный
(22815)
ВАС ИС ДАС, дарил неруси
р дУченик (100)
1 год назад
Андрей ИлюшечкинЗнаток (485)
1 год назад
Что дарил
Björn Andersson
Просветленный
(22815)
Андрей Илюшечкин, Уши, Sony WH-1000XM5 за 500 баксов.
Артём КалининУченик (109)
1 год назад
Dim T(7, 3) As Integer
Dim i As Byte
Dim j As Byte
Dim s As Integer
Dim ST As Single
Private Sub CommandButton1_Click()
Cells(2, 3) = "Утром"
Cells(2, 4) = "В обед"
Cells(2, 5) = "Вечером"
For i = 1 To 7
For j = 1 To 3
T(i, j) = Val(InputBox("Введите показания за день"))
Cells(i + 2, j + 2) = T(i, j)
Next j
Next i
For i = 1 To 7
s = 0
For j = 1 To 3
s = s + T(i, j)
ST = CInt(s / 3)
Cells(10, 2) = "Среднее значение"
Cells(10, 4) = ST
Next j
Next i
Dim i As Byte
Dim j As Byte
Dim s As Integer
Dim ST As Single
Private Sub CommandButton1_Click()
Cells(2, 3) = "Утром"
Cells(2, 4) = "В обед"
Cells(2, 5) = "Вечером"
For i = 1 To 7
For j = 1 To 3
T(i, j) = Val(InputBox("Введите показания за день"))
Cells(i + 2, j + 2) = T(i, j)
Next j
Next i
For i = 1 To 7
s = 0
For j = 1 To 3
s = s + T(i, j)
ST = CInt(s / 3)
Cells(10, 2) = "Среднее значение"
Cells(10, 4) = ST
Next j
Next i
Илья Будрин
(3737)
1 год назад
Хочу денег. Хотя бы 3000, на новый бп для компа
Д.А.Р.Мастер (2196)
1 год назад
Все
деньги
узодят
на
разработку
новых
штаммов
коронавируса
и
вакцин.
На
тебя
не
хватает.
деньги
узодят
на
разработку
новых
штаммов
коронавируса
и
вакцин.
На
тебя
не
хватает.
~S~
(19610)
1 год назад
С новым всех годом!!!! Желаю, чтобы все дальше продолжали проявлять положительную активность на ответах Майл ру. Это год был непростым для всех. Надеюсь,что этот год будет положительным. Надеюсь, что в эту новогоднюю ночь все вы испытаете счастья. У меня к сожалению нет новогоднего настроения. Для меня это обычный день. Всех с праздником, всем удачи!!!!!
С новым 2023 годом, друзья!!!
Д.А.Р.Мастер (2196)
1 год назад
Поздравляю
с
Рождеством!
Необычным
был
день
6_февраля:
500
ядерных
бомб
взорвалось
под
турецкой
землёй.
Айтекин
Аташ,
не
тыкай
наташ.
с
Рождеством!
Необычным
был
день
6_февраля:
500
ядерных
бомб
взорвалось
под
турецкой
землёй.
Айтекин
Аташ,
не
тыкай
наташ.
Денис, Боталов
(73087)
1 год назад
Его разделывать та ещё возня.
Д.А.Р.Мастер (2196)
1 год назад
- Чему равны первые 100 цифр записи +i=...4304221412013233 в 5-адических числах?
Екатерина Кузнецова
(21565)
1 год назад
одного подарили,да и тот сбежал сразу
Д.А.Р.Мастер (2196)
1 год назад
- Чему равны первые 100 цифр записи мнимой единицы +i=...4304221412013233 в 5-адических числах?
Daniil Ledenskoy
(29982)
1 год назад
Вас так же! 
Д.А.Р.Мастер (2196)
1 год назад
- С Рождеством!
- Чему равны первые 100 цифр записи мнимой единицы +i=...4304221412013233 в 5-адических числах?
Вася Пупкина
(17307)
1 год назад
Всю жизнь мне почему-то жалко этих кроликов!(((
Дарила всякое разное...но не их!)
Вот вам мармеладу мясного!))
Дарила всякое разное...но не их!)
Вот вам мармеладу мясного!))
⋟❃Кошка в сапожках❃⋞Искусственный Интеллект (132026)
1 год назад
Из крольчатины? ;)
Вася Пупкина
Мудрец
(17307)
⋟❃Кошка в сапожках❃⋞, или из зайчатины!((( Да, печаль
E.NigmaОракул (60325)
1 год назад
Пару месяцев назад мне уже где-то попадался прикол про мармелад из мяса... и варенье из молока... а особенно порадовали маринованные блины... с Новым Годом Вас!
Вася Пупкина
Мудрец
(17307)
E.Nigma, с Новым годом! Вот и я вспомнила про этот мармелад!)
Маруся
(50512)
1 год назад
Лучший подарок это здоровье родных и мир! От души всем этого желаю, с Новым годом !
✿❯── ✿─●ЕВРЕЙКА●─✿──❮✿
(828420)
1 год назад
И Вам....не болеть))!
Спасибо за поздравления✌️
И Вам....не болеть))!Спасибо за поздравления✌️
Леди ♕ Лео ♕ Ясноокая ♕Высший разум (2048134)
1 год назад
С новом Годом, Дорогая)) Будь ещё дороже! А главное - мира, счастья, здоровья, неувядающего шарма и красоты! Всех благословений!
✿❯── ✿─●ЕВРЕЙКА●─✿──❮✿
Высший разум
(828420)
Леди ♕ Лео ♕ Ясноокая ♕, спасибо❤❤❤и взаимно
Похожие вопросы
И каких подарков ждёте вы лично?
И по традиции желаем Вам не только хороших вопросов и ответов, но здоровья, счастья и благополучия в Новом Году!