100 .
выявить совпадения в тексте и посчитать общее количество объектов. например: марганец 8, системы сканирования 14, системы сканирования 6. ответ: марганец 8, системы сканирования 20. в тексте могут быть незначительные ошибки! проверить!
:

железо 9
‌нестандартные данные об излучении 8
‌германий 6
‌теплообменные агрегаты 4
‌неожиданные данные об излучении 6
‌тепловые заслонки 5
‌ниобий 7
‌прототипы теплоизоучения 7
‌расшифрованные данные об излучении 7
фосфор 2
‌захваченые сплавы 5
‌марганец 6
‌проводящая керамика 9
‌фазовые сплавы 4
‌опытные легкие сплавы 9
‌сплавы для изготовления зондов 5
механические отходы 8
‌германий 4 (каменные)
‌фазовые сплавы 4
‌ниобий 5
‌механическое оборудование 4
‌опытные легкие сплавы 4
‌механические компоненты 5
‌олово 5
‌сплавы для изготовления зондов 5
специальные программы предыдущего поколения 12
‌механическое оборудование 2
‌хром 3
‌механические компоненты 3
‌настраеваемые компоненты 5
‌селен 5
‌измененные пользовательские микропрограммы 5
‌взломанные промышленные микропрограммы 6
‌кадмий 6
‌фармацевтические изоляционные материалы 6
фосфор 4
‌захваченные сплавы 10
‌марганец 10
‌проводящая керамика 5
‌проводящие компоненты 8
‌фазовые сплавы 8
‌опытные легкие сплавы 8
углерод 9
‌щитоизлучатели 8
‌высокополостные композиты 5
‌ванадий 5
‌сенсоры системы сканирования 5
‌патентованные композиты 5
‌вольфрам 8
‌многоступенчатая защита 8
‌композиты core dinamics 8
фосфор 2
‌захваченные сплавы 5
‌марганец 5
‌проводящая керамика 11
‌проводящие компоненты 5
‌фазовые сплавы 5
‌опытные легкие сплавы 11
‌сплавы для изготовления 8
поврежденные цикличные записи щита 9
‌германий 6
‌поврежденные цикличные записи щита 5
‌осажденные сплавы 5
‌неполный анализ поглощения щита 6
‌ниобий 6
‌термические сплавы 6
‌нетипичные данные сканирования щитов 8
‌олово 8
‌сплавы военного назначения 8
сера 5
‌проводящие компоненты 4
‌аномальный массив данных 5
‌хром 5
‌ массивы 10
‌неопознанные архивы сканирования 6
‌полимерные кондерсаторы
‌засекреченные базы данных сканирования 16
‌кадмий 8
‌военные суперконденсаторы 8.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Anasteisha130100

26.02.2021 22:02

Времени нет, а сдать надо завтра до 12:00 Готов отдать...

Дженнa

06.11.2021 15:52

Объясните каждый блок что значит, сама задача: Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа....

ivanvolkov2001

29.08.2022 05:09

Для каждой из матриц х(8; 8) и у(10; 10) вычислить сумму элементов,расположенных на главной диагонали и выше её....

ksenyarobulet

13.01.2021 10:53

Сколько листов бумаги потребуется для распечатки текста занимающего 0,25 килобайт памяти если 1 лист содержит 16 строк по 15 символов в строке...

smichuksvitlana

13.01.2021 10:53

Скорость интернет соеднения 10000 кбит с ,сколько секунд потребуется для передачи файла размером 200 кбайт...

пати24

06.05.2022 10:55

Сточно оттветть на все во язык Поскаль...

DMN1111

29.09.2021 22:00

плез соре сдачи завтра до 7 Сор по информатике 8 класс...

mmmmmmiiiiiinnn

18.09.2020 18:18

ответьте на эти два задания...

marushakeduard

11.10.2020 07:38

Выберите неверное утверждение: 1) Система счисления - знаковая система, в которой числа записываются по определенным правилам 2) Десятичная система счисления – это позиционная...

ЛамповыйКун1

12.04.2022 05:03

1. Какой результат отобразится на экране после выполне- ния следующего фрагмента программы? 1)S=0for i in range(2,2): S=S+1/i print (S)2) S=0for i in range(1,5): S=S+1/i print...

Ответ:

thetrueraincorn

21.09.2021 23:17

1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
nn=100;
var
i,j,n,t:integer;
a:array[1..nn] of integer;
begin
Write('n='); Read(n);
Randomize;
for i:=1 to n do begin
    a[i]:=Random(3);
    Write(a[i],' ')
    end;
Writeln;
for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
        end;
for i:=1 to n do Write(a[i],' ');
Writeln;
end.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2

0,0(0 оценок)

Ответ:

karina809

30.12.2022 02:38

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
function
Transpose(a: array[,] of integer): array[,] of integer;
//Поворот на 90гр по часовой стрелке
begin
var m := Length(a, 0);
var n := Length(a, 1);
Result := new integer[n, m];
for var i := 0 to n-1 do begin
    for var j := 0 to m-1 do
      Result[i, j] := a[m-1-j, i];
end;
end;

begin
var n := ReadInteger('Введите n:');
//Заполнение матрицы NxN сл. числами и вывод на экран
var a :=MatrixRandom(n, n);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(a[i,j]);
    println;
    end;
     println;

Println('поворот влево на 90 гр');
var b := Transpose(a);
b:=Transpose(b);
b:=Transpose(b);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
println;

Println('поворот вправо на 90гр');
b := Transpose(a);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
println;

Println('поворот на 180 гр');
b := Transpose(a);
b := Transpose(b);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку