Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
мария1965
26.10.2021 05:18 •
Информатика
На шахматной доске стоят несколько ладей. Докажите, что их можно раскрасить тремя цветами, чтобы одноцветные ладьи не стояли под боем друг друга. Хватит ли для этого двух цветов? скажите
👇
Увидеть ответ
Открыть все ответы
Ответ:
Гелакси27
26.10.2021
'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
26.10.2021
#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 оценок)
Это интересно:
С
Стиль-и-уход-за-собой
06.12.2022
7 шагов к переходу от темных волос к светлым: все, что вы должны знать, чтобы изменить свой цвет волос...
О
Образование-и-коммуникации
09.06.2023
Как стать онлайн-корректором: советы и требования...
О
Образование-и-коммуникации
08.05.2022
Как нарисовать Гарри Стайлса: Подробный гид для начинающих художников...
Х
Хобби-и-рукоделие
01.02.2020
Как пользоваться моноподом: полезные советы и рекомендации...
В
Взаимоотношения
29.12.2020
Как игнорировать своего парня: 5 советов для девушек, которые хотят сохранить свою независимость...
С
Стиль-и-уход-за-собой
26.11.2020
Как сделать боб каре как у Пэрис Хилтон...
К
Кулинария-и-гостеприимство
31.05.2023
Как приготовить банановый смузи без блендера: простые и эффективные методы...
Д
Дом-и-сад
26.01.2022
Как выложить пол керамической или керамогранитной плиткой: советы и рекомендации...
27.05.2020
Как добиться ясности ума: советы от экспертов...
З
Здоровье
14.01.2023
Очистка организма от кокаина: научно проверенные методы...
Новые ответы от MOGZ: Информатика
natalivkartoyqc3v
30.01.2021
Запишите код программы с операторов интегрированной среды...
knowwhatsorry104
29.01.2023
Запишите код программы с операторов интегрированный среды прог...
svitlanatopp08vqs
14.10.2022
Петя и костя изучают на делимость чисел. им нравятся числа, которые имеют много делителей. один из мальчишек придумывает число, а второй подсчитывает количество делителей у числа....
Ksenia20066kislova
28.09.2020
Дано натуральное число. написать программу, которая определит является ли число двузначным. ответ: true или false и является ли четной сумма его цифр. 50 ....
ногл289
02.12.2020
с++ с использованием while Напишем простую программу, которая пытается быть дружелюбной. Программа должна выполнять три действия: Выводить в консоль вопрос What do you love?...
dmutallapova
24.09.2022
Выполните вопросы с 1 по 12 Информатика....
Cookiefluffy1500
08.09.2020
Конспект что такое программирования...
shifu90
06.03.2021
Может ли глаголы быть переходными и непереходными без...
Mausssslaaaa
06.03.2021
Сплав олова с медью весом 300 кг содержит 60% меди. сколько чистого олова надо добавить, чтобы получить сплав, содержащий 40% меди...
Denis2008111
06.03.2021
Текст миркування 5-7 чому треба берегти рослини...
MOGZ ответил
30 )) переведите на : сша-страна эмигрантов. коренное население (индейцы)...
Какие из следующих утверждение верны? 1)площадь треугольника меньше произведения...
Кто может решить ? буду сильно . информатика рекурсия(желательно по действиям)...
Назовите вещества, укажите, какому классу неограниченных веществ они относятся...
Две машины выехали навстречу друг другу из двух городов, расстояние между...
Какое правило пользования газовыми приборами дома?...
Знайдіть похідну функції.найдите походную функции .1) f(x)=cosx2) p(x)=x5степени3)...
Как называют человека, который презирает другого за что либо? (например за...
Какие из следующих утверждений верны? 1)площадь треугольника меньше произведения...
Мама-белка купила 4 кг 447г орехов и хочет разделить их поровну между бельчатами.определи,по...
Полный доступ к 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()