Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Дашка12156
20.09.2021 05:38 •
Информатика
3. Дан фрагмент текста.
Столица: Нур-Султан с населением" 1078 362 человек
а) Определите назначение знака 1
б) Определите назначение знака і
👇
Увидеть ответ
Открыть все ответы
Ответ:
smokeech
20.09.2021
Створюємо кнопку
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле
procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.
4,5
(53 оценок)
Ответ:
lera20037
20.09.2021
#include <iostream>
#include <array>
#include <random>
using namespace std;
mt19937 gen { random_device()() };
uniform_int_distribution<> uid(-20, 20);
constexpr size_t N = 5;
int main()
{
int sum = 0;
array<array<int, N>, N> a;
for (auto &i : a) {
for (auto &j : i) {
if ((j = uid(gen)) < 0) {
sum += j;
}
cout << j << "\t";
}
cout << endl;
}
cout << endl;
a[1][2] += sum;
for (const auto &i : a) {
for (const auto &j : i) {
cout << j << "\t";
}
cout << endl;
}
cout << "Sum: " << sum << endl;
}
4,4
(38 оценок)
Это интересно:
К
Компьютеры-и-электроника
31.05.2022
Как сделать полный сброс на телефоне Nokia N73...
К
Кулинария-и-гостеприимство
23.07.2022
Как приготовить бисквитный торт: простое рецепт и советы на все случаи жизни...
Х
Хобби-и-рукоделие
01.08.2021
Как найти изображения на компьютере: советы и рекомендации...
Х
Хобби-и-рукоделие
04.09.2020
Как сделать фетровую шляпу: пошаговая инструкция с фото...
22.05.2023
Как убедить родителей не пустить вас в школу: советы для тех, кто хочет изменить свою жизнь...
К
Компьютеры-и-электроника
10.04.2020
Как победить Элитную Четверку в Pokemon FireRed...
К
Кулинария-и-гостеприимство
14.12.2022
Уникальная инструкция: как кушать гамбургер...
К
Компьютеры-и-электроника
03.01.2023
Как активировать iMessage на вашем устройстве: шаг за шагом...
П
Праздники-и-традиции
24.12.2020
Как правильно чистить искуственную елку...
17.04.2022
Как избежать наказания в школе: 10 простых советов...
Новые ответы от MOGZ: Информатика
fdsufsycdst
21.10.2021
Напишите программу на языке програмирования паскаль создания массива и вывода элементов массива на экран,состоящего из 5 элементов,заполненных случайным образом, плз...
pandokokos22jopar
21.10.2021
Напишите программу на языке программирования паскаль создания массива состоящего из 6 элементов,которые заполнены с ввода с клавиатуры и выведенны на экран...
goum1
09.09.2021
Исполнитель буквоед работает со строками. при выполнении алгоритма он полностью проходит строку слева направо и ищет комбинации букв. в случае нахождения, заменяет их...
диана2399
03.04.2021
Подскажите есть кто шарит, мышка х7, после установки макроса, слетел двойной шелчок на 7 кнопке, как вернуть кто подскажет, нажимаю на красную кнопку мыши и должен быть...
gribovskayairi
05.05.2020
письмово пояснити, як авторка ставиться до головного героя та до самої ситуації, яка з ним сталася ( Гер Переможний )...
ramzesrvc
01.09.2021
Напишите все целые значения песли 4 \n 7....
egor44rus
22.06.2020
СЕРЕДНЬОВІчний схід Розділ 6 ю Діємо: практичні завдання Розгляньте зображення пам яток культури доби Середньо- віччя і визначте, які особливості релігійних вчень позначилися...
ilka2004z
22.06.2020
21.2. Для покупки 80 наклеек Буратино не хватило 20 золотых монет. Если бы Буратино купил 20 наклеек, то у него осталось бы 100 золотых монет. Сколько монет стоит одна...
zemairen
22.06.2020
синтаксический разбор сложного предложения:Время, которое так быстротечно, время, уходящее безвозвратно, — вот драгоценнейшее достояние человека, и выбрасывать его на...
Kla05
22.06.2020
особенности западного ренессанса, восточного ренессанса, схожие черты...
MOGZ ответил
Олимпийские игры начали проводить 776 года до н.э. сколько лет назад...
Составить три сложных предложения и выписать из них все словосочетания...
Какую цифру следует поставить в записи 6318*, чтобы полученное число...
Решить несколько по информатике 1 сколько времени потребуется сети...
Что , по мнению мономаха, является главным грехом? почему?...
Используя простейшие преобразования постройте график функции y=√x-2...
1) яку найменшу довжину повинен мати дріт, щоб його можна було розрізати...
Какие меры безопасности следует соблюдать при выполнении данного...
Почему божью коровку , назвали божьей коровкой?...
Перечислите общие черты организации плоских червей по сравнению печёночно...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле
procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.