на простые вопросы по информатике, сам не шарю 1.Отметьте устройства вывода Принтер Клавиатура Плоттер Внешняя память Сканер 2.Отметьте устройства ввода Принтер Клавиатура Плоттер Внешняя память Сканер
3.Что находится на системной плате Принтер Клавиатура Плоттер Внешняя память Сканер
4.Что относится к внутренней памяти Постоянная память Флэш-память Кэш память Оперативная память Оптический диск Процессор
5.Что относится к внешней памяти Постоянная память Флэш-память Кэш память Оперативная память Оптический диск Процессор
6.Какое аппаратное устройство используется для ввода числовой и текстовой информации Сканер Плоттер Клавиатура Сенсорный экран Монитор Оптический диск Мышь
7.С какого устройства рисунки можно вводить от руки Сканер Плоттер Клавиатура Сенсорный экран Монитор Дигитайзер Мышь
8.Какое устройство, анализируя какой-либо объект, создаёт цифровую копию изображения Сканер Плоттер Клавиатура Сенсорный экран Монитор Дигитайзер Мышь
9.Где установлены ПЗУ, ОЗУ Оптический диск Жесткий диск Системная плата Процессор
10.Какая память энергонезависима ПЗУ ОЗУ Кэш-память
11.Какая память используется как промежуточный буфер ПЗУ ОЗУ Кэш-память Флэш-память
12.Какое устройство является исполнителем машинных инструкций Сканер Плоттер Клавиатура Сенсорный экран Процессор Монитор Оптический диск

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

↓

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

Krauler1

25.05.2022 22:22

Решить шифрование на экскурсии в музее связи кадеты узнали о различных шифрования данных, в том числе криптографических алгоритмах. кадеты петров и пупкин большие...

АминаАлханова

05.01.2020 06:39

Сколько существует различных маршрутов от a до hнапишите,как вы это сделали,...

ImanguloffAjdar

09.02.2023 09:54

Втаблице запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте интернета: запрос количество страниц (тыс.) жираф 159...

ЕлизаветаШкола

23.09.2020 03:00

Чему равен результат этого кода #include iostream using namespace std;int min (){setlocale(0, );int i = 0;int sum = 0; do{ i++;sum += i}while (i 15);cout sum endl;...

uliana2007zvez

14.11.2022 01:30

Оператор присваивания имеет вид:A. =B. :=C. =D. =...

Angel0464118

15.05.2022 09:25

1 за прерывание цикла во время выполнения отвечает оператор stop break...

ksenia07schapov

01.01.2023 00:31

Түс датчигі дегеніміз не?...

HEPA3YMHblU

10.05.2022 09:00

Сделайте , сами кроссворд по информатике .Очень нужно...

даладно30раз

19.11.2021 17:45

Напишите программу для данного графика ...

madinagiraevaM

28.03.2023 09:01

за правильный ответ, и как можно скорее (((...

Ответ:

Ната70

05.07.2020 17:09

//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 оценок)

Ответ:

babohka1

21.08.2021 08:06

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 оценок)

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

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