умница06092006
15.09.2022 10:14

Во Для построения диаграммы в таблице необходимо выделить:

Варианты ответов
шапку.
боковик таблицы.
итоговую строку.
числовые данные.
Во Для круговой диаграммы выделить:

Варианты ответов
Шапку.
Боковик таблицы.
Один столбец чисел.
Несколько столбцов с числами.
Во Мастер диаграмм может выполнять шаги:

Варианты ответов
тип и вид диаграммы
источник данных диаграммы
вставка рисунка для оформления
параметры диаграммы
Во Диаграмму можно разместить:

Варианты ответов
на отдельном листе
на имеющемся
переместить в MS Word
на специальном листе
Во Для перемещения диаграммы:

Варианты ответов
удерживая левую кнопку мыши перетащить
Вырезать, Вставить
Копировать, Вставить
Диаграмма, Размещение
Во Изменить размер диаграммы:

Варианты ответов
за размерные маркеры
Диаграмма, Размещение
изменяя ширину столбцов
Диаграмма, Параметры диаграммы
Во Для изменения типа диаграммы:

Варианты ответов
Диаграмма, Параметры диаграммы
Диаграмма, Тип диаграммы
щелкнуть правой кнопкой, Тип диаграммы
Вставка, Диаграмма
Во Дать название диаграмме:

Варианты ответов
кнопкой Надпись
сразу, при выполнении 3-го шага
Диаграмма, Параметры диаграммы
щелкнуть правой кнопкой, Параметры диаграммы
Во Легенда в диаграмме:

Варианты ответов
условное обозначение;
может размещаться только справа;
может размещаться в любом месте диаграммы;
необязательна (при использовании одного цвета).
Во Подписи значений в диаграмме:

Варианты ответов
текстовые категории;
числовые значение;
доля;
заголовок диаграммы.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
thetrueraincorn
21.09.2021 23:17
1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
  a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
  nn=100;
var
  i,j,n,t:integer;
  a:array[1..nn] of integer;
begin
  Write('n='); Read(n);
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(3);
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
        end;
  for i:=1 to n do Write(a[i],' ');
  Writeln;
end.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2
0,0(0 оценок)
Ответ:
kuanyshqz
29.01.2022 17:09
1.
var
x:integer;
y:real;
begin
write('Введите значение аргумента "X" : ');
readln(x);
y:=3*cos((5*x));
writeln('Значение функции "Y" = ',y);
readln;
end.

2.
var
x,b:integer;
begin
write('Введите количество молока, полученного за день, л : ');
readln(x);
write('Введите количество дней : ');
readln(b);
writeln('Количество молока, полученного за заданный промежуток времени = ',x*b);
readln;
end.  

3.
var
a,b,c:integer;
begin
write('Введите двузначное число: ');
readln(a);
b:=a div 10;
c:=a mod 10;
writeln(b,#10,c);
end.

4.
var
b:integer;
a:longint;
begin
write('Введите целое число: ');
readln(a);
  b:=a div 100 mod 100;
writeln(b);
readln;
end.

5. 
var
a,b:integer;
begin
write('Введите числа : ');
readln(a,b);
if a and b mod 2=0 then
 writeln(a+b);
if a and b mod 2<>0 then
 writeln(a*b);
readln;
end.
{Про последнее "Иначе", увеличьте все числа в пять раз и выведите результаты" не очень понялЕсли оба чётные - сумма, если оба - нечётные - то произведение. А если иначе, то число должно быть равно нулю. Смысл увеличивать его в пять раз?)}
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота