kornienko123456
10.03.2022 21:57

Тест информатика 6 класс. конкурс «я энциклопедия»
1. полный путь к файлу имеет вид d: \graf\animals_may_1.bmp
расширение этого файла …?
а. may_1.bmp
б. 1.bmp
в. bmp
г. animals_may_1
2. 1 кбайт содержит …
а. 8 кбит;
б. 1000 байт;
в. 8190 бит;
г. 1024 бит.
3. укажите тип файла с расширением .rtf
а. электронные таблицы;
б. звуковой;
в. текстовый;
г. архивный.
4. числа последовательности записаны по определенной закономерности. 3, 6, 9, 18, 27, 54, 81, 162 … какое число должно быть следующим?
а. 445;
б. 347;
в. 243;
г. 149.
5. сколько всего имеется трехзначных чисел, сумма цифр которых равна 4?
а. 4;
б. 5;
в. 6;
г. 10.
6. какое из перечисленных слов может быть зашифровано в виде кода ? одинаковые символы соответствуют одинаковым буквам.
а. вазон;
б. модем;
в. вакса;
г. вагон.
7. анаграммы – это головоломки, в которых переставляются буквы в словах. расшифруйте слова в анаграммах. выберите лишнее слово:
а. ретчивнес;
б. торнимо;
в. тернпри;
г. ркомвьо.
8. расшифруйте и получите слово. 15 16 14 6 15 12 13 1 20 21 18 1
а. анестезиолог;
б. номенклатура;
в. казначейство;
г. космонавтика.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Lena12281995
07.12.2022 09:41
1. #include
#include
using namespace std;
int main (){
int a;
cout << "Введите число: " << endl;
cin >> a;
cout << pow(a,2) - 2*a << endl;
}

2. #include
#include
using namespace std;
int main (){
int a, b;
cout << "Введите два числа: " << endl;
cin >> a >> b;
cout << pow(a,2) + pow(b,2)-(a*b);
}

3. #include
#include
using namespace std;
int main (){
int a, b;
cout << "Введите два числа: " << endl;
cin >> a >> b;
cout << "Молуль первого числа: " << abs(a) << endl << "Модуль второго числа: " << abs(b) << endl;
}
0,0(0 оценок)
Ответ:
Инна0606
24.11.2020 09:00
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var a := ArrRandom(ReadInteger('n='), -50, 50);a.Println;
  var b := a.IndexesOf(t -> t.IsEven).ToArray;
  var b1 := a.Where(t -> t.IsEven).Sorted.ToArray;
  var b2 := ArrFill(a.Length, 1); 
  if b.Length < 0 then begin a.Println; exit; end; 
  for var i := 0 to b.Length - 1 do b2[b[i]] := b1[i];
  for var i := 0 to a.Length - 1 do if b2[i].IsOdd then b2[i] := a[i];
  b2.Println;  
end.

Пример:
n= 10
30 9 27 25 -34 25 -5 5 46 -46
-46 9 27 25 -34 25 -5 5 30 46
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота