AzazaMen
22.01.2022 12:38

1).В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования. Паскаль
Var k, m: integer;Dat: array[1..10] ofinteger;BeginDat[1] := 12; Dat[2] := 15;Dat[3] := 17; Dat[4] := 15;Dat[5] := 14; Dat[6] := 12;Dat[7] := 10; Dat[8] := 13;Dat[9] := 14; Dat[10] := 15;m := 0;fork := 1to10doifDat[k]=15thenbeginm := m + 1;end;writeln(m);End.
2). В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..10]ofinteger;
Begin
Dat[1]:=2;Dat[2]:=5;
Dat[3]:=8;Dat[4]:=5;
Dat[5]:=4;Dat[6]:=2;
Dat[7]:=0;Dat[8]:=3;
Dat[9]:=4;Dat[10]:=5;
m :=0;
fork :=1to10do
ifDat[k]> m thenbegin
m :=Dat[k];
end;
writeln(m);
End.
3). В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..10]ofinteger;
Begin
Dat[1]:=16;Dat[2]:=20;
Dat[3]:=20;Dat[4]:=41;
Dat[5]:=14;Dat[6]:=21;
Dat[7]:=28;Dat[8]:=11;
Dat[9]:=15;Dat[10]:=35;
m :=50;
fork :=1to10do
ifDat[k]< m then
begin
m :=Dat[k];
end;
writeln(m);
End.
4). В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..10]ofinteger;
Begin
Dat[1]:=16;Dat[2]:=20;
Dat[3]:=20;Dat[4]:=41;
Dat[5]:=14;Dat[6]:=21;
Dat[7]:=28;Dat[8]:=12;
Dat[9]:=15;Dat[10]:=35;
m :=0;
fork :=1to10do
ifDat[k]> m then
begin
m :=Dat[k];
end;
writeln(m);
End.
5). В таблице Dat хранятся данные о количестве сделанных заданий учениками (Dat[1] заданий сделал первый ученик, Dat[2] — второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m,n:integer;
Dat:array[1..10]ofinteger;
Begin
Dat[1]:=7;Dat[2]:=9;
Dat[3]:=10;Dat[4]:=5;
Dat[5]:=6;Dat[6]:=7;
Dat[7]:=9;Dat[8]:=8;
Dat[9]:=6;Dat[10]:=9;
m :=10;
n :=0;
fork :=1to10do
ifDat[k]< m then
begin
m :=Dat[k];
n := k;
end;
writeln(n);
End.
6). В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..11]ofinteger;
Begin
Dat[1]:=20;Dat[2]:=27;
Dat[3]:=19;Dat[4]:=28;
Dat[5]:=26;Dat[6]:=22;
Dat[7]:=24;Dat[8]:=28;
Dat[9]:=26;Dat[10]:=21;
Dat[11]:=27;
m :=0;
fork :=1to11do
ifDat[k]<25then
begin
m :=Dat[k];
end;
writeln(m);
End.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Сашалажа
18.02.2021 00:11
Каждая из компонент связности должна быть кликой (иначе говоря, каждые две вершины в одной компоненте связности должны быть связаны ребром). Если в i-ой компоненте связности n_i вершин, то общее число рёбер будет суммой по всем компонентам связности:

\displaystyle \sum_{i=1}^K\frac{n_i(n_i-1)}2=\frac12\sum_{i=1}^K n_i^2-\frac12\sum_{i=1}^Kn_i=\frac12\sum_{i=1}^K n_i^2-\frac N2

Требуется найти максимум этого выражения (т.е. на самом деле - максимум суммы квадратов) при условии, что сумма всех ni равна N и ni - натуральные числа.

Если K = 1, то всё очевидно - ответ N(N - 1)/2. Пусть K > 1.

Предположим, n1 <= n2 <= ... <= nK - набор чисел, для которых достигается максимум, и n1 > 1. Уменьшим число вершин в первой компоненте связности до 1, а оставшиеся вершины "перекинем" в K-ую компоненту связности. Вычислим, как изменится сумма квадратов:
\Delta(\sum n_i^2)=(1^2+(n_K+n_1-1)^2)-(n_1^2+n_K^2)=2(n_1-1)(n_K-1)
Поскольку по предположению n1 > 1 (тогда и nK > 1), то сумма квадратов увеличится, что противоречит предположению о том, что на выбранном изначально наборе достигается максимум. Значит, максимум достигается, если наименьшая по размеру компонента связности - изолированная вершина. Выкинем эту компоненту связности, останутся K - 1 компонента связности и N - 1 вершина. Будем продолжать так делать, пока не останется одна вершина, тогда получится, что во всех компонентах связности кроме последней должно быть по одной вершине.

Итак, должно выполняться
n_1=n_2=\cdots=n_{K-1}=1;\qquad n_K=N-K+1

Подставив в исходную формулу, получаем
\displaystyle\frac{(N-K)(N-K+1)}{2}

Это и есть ответ.
0,0(0 оценок)
Ответ:
ZlataM1
02.05.2023 13:07

Python:

import sys#Импортируем библиотеку

#Запрашиваем ввод данных, который записывается в целочисленной переменной

x = int(input("Введите вершину ромба по X: "))

y = int(input("Введите вершину ромба по Y: "))

tx = int(input("Введите целевую точку по X: "))

ty = int(input("Введите целевую точку по Y: "))

if x/2-ty <= tx <= x/2+ty:#Если условие истинно идем дальше

  if y/2-tx <= ty <= y/2+tx:#Если условие истинно идем дальше

     if y-ty >= ty or x-tx >= tx:#Заключительная проверка

        print("Точка входит")#Информируем пользователя о результате в консоли

        sys.exit(0)#Завершаем программу

print("Точка НЕ входит")#Если программа не завершится, т.е условия не выполнятся,

#то сообщим о неудаче.

C++:

#include <iostream>//Необходимо нам для ввода-вывода сообщений в консоль

#include <windows.h>//Необходимо для локализации консоли

using namespace std;/*Это пространственное имя, освобождает нас от обязанности писать std::

для того чтобы получить доступ к функционалу подключенной библиотеки - <iostream>*/

int x, y, tx, ty;//Создаем нужные нам переменные

int main()//Точка входа в программу

{

   //Русский язык в консоли

   SetConsoleCP(1251);

   SetConsoleOutputCP(1251);

   //Выводим в консоль свои требования

   //И

   //Запрашиваем ввод данных, который записывается в целочисленной переменной

   cout << "Введите вершину ромба по X: ";

   cin >> x;

   cout << "Введите вершину ромба по Y: ";

   cin >> y;

   cout << "Введите целевую точку по X: ";

   cin >> tx;

   cout << "Введите целевую точку по Y: ";

   cin >> ty;

   if ((x / 2) - ty <= tx <= (x / 2) + ty)

   {

        //Если условие истинно идем дальше

        if ((y / 2) - tx <= ty <= (y / 2) + tx)//Если условие истинно идем дальше

        {

             if (y - ty >= ty || x - tx >= tx)//Заключительная проверка

             {

                 cout << "Точка входит";//Информируем пользователя о результате в консоли

                 return 0;//Завершаем программу

             }

        }

   }

   cout << "Точка НЕ входит";/*Если программа не завершится, т.е условия не выполнятся,

   то сообщим о неудаче.*/

}

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота