Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
stacezoloto
15.04.2021 14:21 •
Информатика
Перевести 467_16 в восьмеричную систему счисления.
Показать ответ
Ответ:
ваня1340
28.08.2021 16:06
'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()
0,0
(0 оценок)
Ответ:
RitaSnow
05.07.2021 14:05
#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");}
0,0
(0 оценок)
Популярные вопросы: Информатика
Танюня123125443
15.09.2022 21:38
Что выведет программа? a = abc b = 2 print(a*b) 3.Что выведет программа? a = 16 b = 8 print(a/b) 4.Что выведет программа? a = -12 b = -5 c = -9 print(a+b-c) 5.Что...
алка689338
20.08.2020 13:21
с информатикой дам 30 быллов...
микки36
08.02.2022 00:03
Даны два целых числа a и b(вводятся с клавиатуры).найти и вывести сумму четных чисел от a до b-это тема паскаля сложная кто-нибудь ....
Babai7777
08.02.2022 00:03
Дан квадрат 3х3 клетки. надо закрасить 8 клеточек так чтобы у каждой из них 2 соседние клеточки были закрашены...
Vilgam
08.02.2022 00:03
Яке призначення шаблонів оформлення презентацій...
lol234583
04.08.2020 13:07
3. Головний закон країни містить 45 сторінок, на кожній сторінці в середньому 42 рядків, у кожному рядку (включаючи пропуски). Знайдіть довжину двійкового коду тексту...
vigura2
02.11.2021 08:24
Pascal Разработать программу вычисления выражения и вывода полученного результата (на экран). Соответствующие исходные данные ввести с клавиатуры. Делаю сам, вылетает...
Нонс2
01.01.2022 22:17
Задания 1. Проверь свою наблюдательность. Какую информацию получаешь, рассматривая рисунок 5? Ты Ш Рис. 5. Сбор яблок 2. Запиши в таблицу любой предмет, изображенный...
kuleminaIV
21.09.2022 21:06
Марату пришло сообщение из 256 символов определите количество информации в сообщении Если она составлена с 16 символьного алфавита...
06Sofa07
02.02.2020 01:50
Задача по математической логике 1. Записать рассуждение в логической символике, обосновать выбор логических связок. 2. Проверить правильность рассуждения методом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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()
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");}