В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
ElenaAristova1501
ElenaAristova1501
20.06.2022 06:27 •  Информатика

Навыки высокого порядка
1. Как вы думаете, в каких случаях эффективнее использовать конструктор мобильных приложений, а в каких – интегрированную среду разработки?
​2. Если работа в App Inventor выполняется в браузере, то к какому виду программ его можно отнести.
Во Что такое конструктор мобильных приложений?
2. ​Чем конструктор отличается от среды разработки мобильных приложений?
3. ​Какие типы приложений позволяют создавать конструкторы мобильных приложений?
4. ​Какие компоненты включает в себя интегрированная среда разработки?
Применение
Работа в группе
Обсудите в группе и оцените с точки зрения функциональности среду App Inventor.

Показать ответ
Ответ:
Dasěuke345
Dasěuke345
12.09.2021 02:57
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
const
  N = 10;

var
  a: array [1..N] of integer;
  i, j, b: integer;

begin
  for i := 1 to N do
    a[i] := Random(81) - 40;
  writeln('Элементы массива a: ');
  for i := 1 to N do
    write(a[i], ' ');
  writeln;
 
  //сортировка не очень быстрая, но и массив маленький
  for j := 1 to n do
    for i := 1 to n - 1 do
      if a[i] < a[i + 1] then
      begin
        b := a[i];
        a[i] := a[i + 1];
        a[i + 1] := b;
      end;
  writeln;
  writeln('После сортировки : ');
  for i := 1 to N do
    write(a[i], ' ');
  writeln;  
end.
0,0(0 оценок)
Ответ:
Androchshuk15
Androchshuk15
15.03.2023 19:03
Var
  a: Array [0..9] of Integer;
  n, min,max: Integer;

begin
  readln(n);
  min:=9;
  max:=0;
  while (n > 0) do begin
    inc(a[n mod 10]);
    if n mod 10<min then min:=n mod 10;
    if n mod 10>max then max:=n mod 10;   
    n := n div 10;
  end;

  for n := 0 to 9 do
   if a[n] = 3 then writeln('В числе есть 3 одинаковые',n);
 writeln('Максимальная цифра ',max);
 writeln('Минимальная  цифра ',min);
 
end.

Тест для числа:

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