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

Қандай шарт кіркітірілген деп аталады​

👇
Открыть все ответы
Ответ:
12artem2000
12artem2000
25.03.2023
1) Если круг не белый и не зелёный, а квадрат лежит между треугольником и белой фигурой, то треугольник и квадрат тоже не белые. Следовательно, белым может быть только ромб.
2) Круг и треугольник не зелёные, ромб тоже, так как он белый, значит, зелёным является квадрат.
3) Треугольник не синий из условия, квадрат зелёный, ромб белый - они тоже не синие. Остался круг. Он является синим.
4) Треугольник красный, так как другие цвета уже распределены.

ответ:
1) квадрат - зелёный;
2) круг - синий;
3) ромб - белый;
4) треугольник- красный.
4,4(100 оценок)
Ответ:
анна2259
анна2259
25.03.2023

var

 A, Ap, Ao: array [1..14] of Integer;

 i, c, cp, co: Integer;

 s: Real;

begin

 Randomize;

 WriteLn ('Mассив:');

 for i := Low (A) to High (A) do begin

   A [i] := Random (201) - 100;

   Write (A [i], ' ');

 end;

 cp := 0;

 co := 0;

 for i := Low (A) to High (A) do begin

   if A [i] > 0 then begin

     cp := cp + 1;

     Ap [cp] := A [i];

   end else begin

     co := co + 1;

     Ao [co] := A [i];

   end;

 end;

 c := Low (A);

 for i := 1 to cp do begin

   A [c] := Ap [i];

   c := c + 1;

 end;

 for i := 1 to co do begin

   A [c] := Ao [i];

   c := c + 1;

 end;

 WriteLn;

 WriteLn ('Результат: ');

 for i := Low (A) to High (A) do begin

   Write (A [i], ' ');

 end;

 WriteLn;

 WriteLn ('Количество положительных элементов массива = ', cp);

end.

4,6(82 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ