Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
alexxxay
07.01.2020 00:45 •
Информатика
[pascalabc] знайти, в якому місці введеного рядка вперше зустрілась літера а
👇
Увидеть ответ
Открыть все ответы
Ответ:
Гелакси27
07.01.2020
'VBScript
Sub Zadanie()
ReDim C(5, 6)
k_pos = 0
mini = LBound(C, 1)
minj = LBound(C, 2)
For i = LBound(C, 1) To UBound(C, 1)
For j = LBound(C, 2) To UBound(C, 2)
C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then
mini = i
minj = j
end if
Next
Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub
Call Zadanie()
4,4
(47 оценок)
Ответ:
11UmNiK111
07.01.2020
#include <cstdlib>#include <iostream>#include <iomanip>#include <cmath>
using namespace std;
int main(){ setlocale(0, ""); double x, y, a, b, xk, xn, dx; a = 1.4; b = 2.5; cout << "Ââåäèòå xn,xk, dx = " << endl; cin >> xn; cin >> xk; cin >> dx; x = xn; cout << "Tabl" << endl; cout << "+-----------+" << endl; cout << "¦ x ¦ y ¦" << endl; while (x <= xk) { y = (log10(a*x*x+b))/(a*x+1); cout << "+-----+-----¦" << endl; cout.setf(ios::fixed); cout.precision(3); cout << "¦" << x << "¦"<< y << "¦" << endl; x = x + dx; } cout << "+-----------+"; system("pause");}
4,7
(41 оценок)
Это интересно:
К
Компьютеры-и-электроника
27.03.2021
Как поймать Суикуна в игре Покемон - Кристальная версия...
О
Образование-и-коммуникации
07.08.2020
Как нарисовать собачью морду: советы и инструкции...
К
Компьютеры-и-электроника
18.05.2020
Хотите вести эффективный компьютерный дневник? Начните с этой статьи!...
З
Здоровье
09.04.2023
Непереносимость глютена (клейковины): как ее распознать и что делать?...
К
Кулинария-и-гостеприимство
06.10.2020
Как правильно высушить кокос - советы и рекомендации...
02.08.2022
Как начать бизнес подростку: советы, правила, идеи...
З
Здоровье
12.04.2021
Основные способы избавления от язвы во рту...
П
Питомцы-и-животные
28.06.2021
Играть с попугаем - просто и весело...
К
Кулинария-и-гостеприимство
15.01.2022
Как жарить креветки: секреты приготовления вкуснейшей закуски...
К
Кулинария-и-гостеприимство
02.04.2023
Купить семена льна: Советы по выбору и покупке...
Новые ответы от MOGZ: Информатика
Онил180
29.11.2022
Д іть інформати в тімс умаляю...
Emptу
06.04.2023
х Типы данных Сопоставь форматы данных в Excel с их назначением. Количество соединений: 4 Числовой с используется для денежных форматов ОО используется для общего представления...
Спартак2102
09.02.2020
Перечислите основные внешние устройства компьютера....
kkhristinka1
24.02.2023
Упростить с карт Тарно X=ABC¬D v ¬A¬B¬C¬D v ¬A¬B¬C¬D v ¬ABC¬D v ¬A¬B v ¬A¬B¬C¬...
Аааа1111111111
31.01.2022
с эти . Задание звучит так: Розташуй у правильному порядку оператори в програмі, яка створила такий малюнок, перетягуючи оператори у відповідні поля. (всё в картинке)...
26032004й
06.10.2020
Простыми словами, волонтер – это человек, который хочет принести и приносит пользу обществу, ничего не требуя взамен. Им может стать любой: и ребенок, и студент, и пенсионер,...
KekCheburashka
19.07.2022
Какое число в римской системе счисления соответствует числу 684 записанному в десятичной системе счисления? 1) dcxxciv 2) mlxxiv 3) dclxxxiv 4) dclxxx и кто понял как подобное...
Tles
16.03.2023
Придумай і запиши запитання,на яке тобі ніхто не відповість (так)...
alina06122
16.03.2023
Ведущим задумано число в диапазоне от 0 до 1000.какое минимальное количество вопросов надо задать,чтобы угадать в каком десятке находится число (ответы ведущего больше или...
Niki1917
16.07.2022
Всё то, чего коснется человек, озарено его душой живою. синтаксический разбор, найти главное и придаточное приложение ...
MOGZ ответил
решить примеры 1) 64⁴÷32⁴•25² 2) 18⁵÷9⁵•5²-51⁴÷17⁴ 3) (1⅕)⁴•(1¼)⁴÷(0,5)⁴...
«Любое тело,если на него не действуют другие тела,или действие этих тел...
102. Запишите несколько предложений, побуждающих ва- ших друзей к каким-либо...
10. Помилку допущено у варіанті * А) картини Івана Марчука Б) роман Оксани...
Нарисуйте график зависимости !активной! составляющей сопротивления кварцевого...
Сделать доклад на тему Океаны. Зарание...
ТОМУ КТО СДЕЛАЕТ НАКИНУ ЕЩЁ...
Твір 7-9 речень Риса характеру Айвенго, яка приваблює мене найбільше. Назвати...
Сравнительная таблица Западной Европы и России. Сравнительные характеристики:...
История любви Владимира Дубровского и Маши Троекуровой». План. Вступление....
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Sub Zadanie()
ReDim C(5, 6)
k_pos = 0
mini = LBound(C, 1)
minj = LBound(C, 2)
For i = LBound(C, 1) To UBound(C, 1)
For j = LBound(C, 2) To UBound(C, 2)
C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then
mini = i
minj = j
end if
Next
Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub
Call Zadanie()