М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
rtyurtuyu
rtyurtuyu
16.08.2021 12:02 •  Информатика

Сообщение на тему хранение информации

👇
Ответ:
puh9999
puh9999
16.08.2021

В любом компьютере обязательно есть устройства, которые хранят информацию. Устройства хранения информации в компьютере разделяются на оперативную память (память, которая нужна для хранения промежуточных результатов вычислений) и долговременную — здесь хранятся файлы (определение довольно грубое но,суть отражает верно).

В оперативной памяти компьютера любая информация хранится только до выключения компьютера. Если вам нужно сохранить документ и вернуться к работе над ним завтра, его нужно записать на долговременное устройство хранения, обычно – на диск.


4,4(14 оценок)
Открыть все ответы
Ответ:
feruza1111
feruza1111
16.08.2021
Var
   A:array[1..100,1..100] of integer;
   i,j,N,z:integer;
Begin
WriteLn('Введите размерность матрицы A[N,N]:');
Write('N = ');
ReadLn(N);
WriteLn('Как заполнить матрицу?');
WriteLn('1 - автоматически, 0 - с клавиатуры');
ReadLn(z);
if z=1 then
   For i:= 1 to N do
       Begin
       For j:= 1 to N do
           Begin
           A[i,j]:=random(21)-10;
           Write(A[i,j]:3,' ');
           End;
       WriteLn
       End
else
   For i:= 1 to N do
       For j:= 1 to N do
           Read(A[i,j]);
z:=1;
For i:= 1 to N do
    For j:= 1 to N do
        if A[i,j]<>A[j,i] then z:=0;
if z=1 then WriteLn('Матрица семметрична относительно главной диагонали')
else WriteLn('Матрица не семметрична относительно главной диагонали')
End.
4,8(97 оценок)
Ответ:
alenkavarina
alenkavarina
16.08.2021
1)
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
    var a := ArrRandomInteger(20, 100, 200);
    Println(a);
    var k := a.Count(x -> x mod 10 = 5);
    Writeln((k = 0) ? 'Таких чисел нет' : k.ToString());
end.

2)
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
    var a := ArrRandomInteger(40, -100, 100);
    Println(a);
    var max := a.Count(x -> x mod 3 = 0);
    if max <> 0 then
        max := a.Where(x -> x mod 3 = 0).Max;
    Writeln((max = 0) ? 'Таких чисел нет' : max.ToString());
end.
4,6(42 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ