М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
irinamazda
irinamazda
22.11.2021 22:45 •  Информатика

Вложенные ветвление как бутит в скрече

👇
Ответ:

если то если то иначе

4,6(91 оценок)
Открыть все ответы
Ответ:
228Cracker228
228Cracker228
22.11.2021

Главная Буфер обмена, Слайды,шрифт,Абзац,Рисование,редактирование Вставка Таблицы, Иллюстрации, Связи, Текст, Клипы и мультимедиа Дизайн Параметры страницы, Темы, Фон Анимация Просмотр, Переход к этому слайду. Показ слайдов Начать показ слайдов, Настройка, Мониторы Рецензирование Правописание, Примечания, Защитить Вид Режимы просмотра презентации, Показать или скрыть, Маштаб, Цвет или оттенки серого, Окно, Макросы Конструктор Параметры стилей таблицы, Стили таблиц, Стили WordArt, Нариоовать границы Макет Таблица, Строки и столбцы, Объединить, размер ячейки, Выравнивание, Размер таблицы, Упорядочить


Задание 1. С справочной системы выясните назначение пунктов меню панели инструментов PowerPoint. Рез
4,8(12 оценок)
Ответ:
allonso
allonso
22.11.2021
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
4,5(50 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ