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

Команда для створення циклів з умовою в середовищі Скретч позначена цифрою ___.

2

1

3

Відсутня правильна відповідь

Питання №2 ?

Команда тіло якого будуть виконуватися до моменту натиснення користувачем кнопки Зупинити все, що закінчує виконання всього проекту позначена цифрою ___.

3

Відсутня правильна відповідь

2

1

Питання №3 ?

Яку умову описує дана команда?

Об’єкт першого кольору торкається другого кольору

Об’єкт торкається вказаного кольору

На клавіатурі натиснуто вказану клавішу, назва якої обирається зі списку

На клавіатурі натиснуто вказану клавішу, назва якої обирається зі списку

Питання №4 ?

Андрій грає з друзями у гру “Знайди колір”. Він зупиниться, коли знайде:

Червоний колір

Сірий колір

Білий колір

Синій колір

Питання №5 ?

Яку умову описує дана команда?

На клавіатурі натиснуто вказану клавішу, назва якої обирається зі списку

Об’єкт перемітиться на 10 кроків

Об’єкт першого кольору торкається другого кольору

Об’єкт слідує за вказівником миші

Питання №6 ?

Що відбудеться в результаті виконання даної команди?

Об'єкт переміститься на 50 кроків

Об'єкт повернеться на 10 градусів за годинниковою стрілкою

Об'єкт повернеться проти годинникової стрілки на 10 градусів

Об'єкт переміститься на 500 кроків

👇
Открыть все ответы
Ответ:
maina342
maina342
10.12.2021
Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.
4,6(58 оценок)
Ответ:
Милки1319
Милки1319
10.12.2021
Как ч понял сортировка по неубыванию это сортировка по возрастанию. То есть легкие элементы всплывают наверх, а тяжелые перемещаются вниз:

//Pascal
const m = 1000
var
    arr: array[1..m] of integer;
    n,i, j, k: integer;
begin
    readln(n);
    write ('Исходный массив: ');
    for i := 1 to n do begin
        readln(arr[i]);
    end;
//сортировка методом пузырька   
    for i := 1 to n-1 do
        for j := 1 to n-i do
            if arr[j] > arr[j+1] then begin
                k := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := k
            end;
 
    write ('Отсортированный массив: ');
    for i := 1 to n do
        write (arr[i]:4);
end.

Алгоритм сортировки на классическом языке программирования С

# define SWAP(A,B) {A=A^B;B=A^B;A=A^B;}
void bubblesort(int A[], int n)
 {
     int i, j;
     for(i = n-1 ; i > 0 ; i--)
          { for(j = 0 ; j < i ; j++)
               {
                   if( A[j] > A[j+1] ) SWAP(A[j],A[j+1]);
               }
           }
   }
4,5(22 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ