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

2. Отделка- это…
а) покрытие поверхности изделия чем- либо;
б) завершающая операция при изготовлении изделия;
в) устройство установок.
г)клейка обоев
3.Технология как наука занимается выявлением…
а) физических, биологических, химических закономерностей с определенной целью;
б) сфера деятельности человека;
в) нужной древесины и металла.
г)выявление
4. Основные во экономики- это
а) что производится, как производится, кем потребляется;
б)что потребляется, как производится, кто производит;
в)что производится, как потребляется, кто производит;
г)что потребляется, как производится, кто потребляет.
5. Моделирование-это
А) построение и изучение моделей реально существующих предметов...
Б) исследование объектов познания на их моделях;
В) исследование объектов познания на их моделях
Г) изучение моделей
6. Выберите лишний файл
а) .ppt;
б).txt;
в).ехе;
г).хls
7.Выберите файл соответствующий 1.txt
А)штриховой рисунок;
Б) тоновой рисунок
В) текст;
Г)таблица.
8. Какое из приведенных ниже устройств имеет наибольшую скорость записи и считывания информации?
А)жесткий диск (винчестер)
Б)гибкий диск (флоппи-диск)
В)флэш-карта
Г)компакт-диск
9. Назовите устройства ввода информации в персональный компьютер.
А)мышь
Б)сканер
В)принтер
Г)монитор
10. Технический рисунок-это
А) наглядное графическое изображение объекта, выполненное от руки в глазомерном масштабе...
Б) выполненное от руки в глазомерном масштабе...
В) эскиз
Г) выполненное от руки в глазомерном масштабе...​

Показать ответ
Ответ:
zevs34
zevs34
11.05.2020 08:07
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var L:=ReadSeqInteger('Введите через пробел три цифры',3).ToList;
  if L.All(x->x=0) then Writeln('Хотя бы одна цифра должна отличаться от нуля')
  else
    if L.All(x->x.IsOdd) then Writeln('Хотя бы одна цифра должна быть четной')
    else begin
      var d3:=L.Where(x->x.IsEven).Min;
      L.RemoveAt(L.FindIndex(x->x=d3));
      var s:=L.OrderBy(x->x);
      Writeln(s.Last,s.First,d3)
      end
end.

Примеры:
Введите через пробел три цифры 2 0 5
520

Введите через пробел три цифры 0 5 0
500

Введите через пробел три цифры 3 9 5
Хотя бы одна цифра должна быть четной
0,0(0 оценок)
Ответ:
ksenia5051
ksenia5051
04.06.2020 04:00
#include <iostream>
#include <random>
#include <ctime>
using namespace std;

mt19937 gen(time(0));
uniform_int_distribution<> uid(0, 19);
void replace(int *a, int n, int k)
{
int last = a[n];
for (int i = n - 1; i >= k; i--) {
a[i + 1] = a[i];
}
a[k] = last;
}

int main()
{
int n = 0, k = 0;
cin >> n;
int *a = new int[n];
if (n <= 100) {
 for (int i = 0; i <= n; i++) {
  a[i] = uid(gen); cout << a[i] << " ";
 }
 cout << endl; cin >> k;
 if (k <= n) {
  replace(a, n, k - 1);
  for (int i = 0; i <= n; i++) {
   cout << a[i] << " "; }
 } else {
  cout << "Error" << endl;
 }
} else {
 cout << "Error!" << endl;
}
delete[] a;
return 0;
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота