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

Выражение в ячейке А1 имеет значение ИСТИНА. В ячейке А2 находится функция: =ЕСЛИ(А1="ИСТИНА";"Проходите";"Стоп"). Какое значение будет выведено в А2? Варианты ответа:
Проходите
ИСТИНА
ЛОЖЬ
Стоп

Показать ответ
Ответ:
imaya88
imaya88
01.08.2021 17:53
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
const
  n=100; // заменить на 10000
var
  a:array[1..n] of byte;
  i:byte;
  j:integer;
begin
  // инициализация, для
  for j:=1 to n do a[j]:=Random(256);
  // собственно программа
  for i:=0 to 255 do
    for j:=1 to n do
      if a[j]=i then Write(i,' ');
end.

Тестовое решение:
5 8 9 11 11 14 14 17 18 19 21 22 24 24 29 30 33 36 40 45 46 47 55 55 56 58 61 62 64 66 68 73 74 75 85 88 91 94 96 96 96 98 102 103 108 109 111 111 116 119 122 123 129 129 130 135 137 139 143 144 149 149 155 155 160 169 170 173 177 178 181 182 190 193 196 198 199 199 200 206 206 207 209 222 224 225 226 229 230 235 237 240 243 246 249 250 251 252 254 255
0,0(0 оценок)
Ответ:
Niker04
Niker04
22.10.2020 05:52
На c++

#include <iostream>#include <ctime>int main(){ using namespace std; const int ArSize = 10; int ar[ArSize]; int s_less = 0, s_more = 0; int k_less = 0, k_more = 0; srand(time(0)); for (int i = 0; i < ArSize; i++) ar[i] = rand() % 101; for (int i = 0; i < ArSize; i++) cout << ar[i] << ' ';
for (int i = 0; i < ArSize; i++) { if (ar[i] < 50) { s_less = s_less + ar[i]; k_less = k_less + 1; } if (ar[i] > 50) { s_more = s_more + ar[i]; k_more = k_more + 1; } } cout << "\nAverage of numbers less than 50: " << (double)s_less / k_less << endl; cout << "Average of numbers more than 50: " << (double)s_more / k_more << endl; return 0;}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота