Информáтика (фр. Informatique; англ. Computer science) — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений[1].
Информатика включает дисциплины, относящиеся к обработке информации в вычислительных машинах и вычислительных сетях: как абстрактные, вроде анализа алгоритмов, так и конкретные, например разработка языков программирования и протоколов передачи данных.
Темами исследований в информатике являются вопросы: что можно, а что нельзя реализовать в программах и базах данных (теория вычислимости и искусственный интеллект), каким образом можно решать специфические вычислительные и информационные задачи с максимальной эффективностью (теория сложности вычислений), в каком виде следует хранить и восстанавливать информацию специфического вида (структуры и базы данных), как программы и люди должны взаимодействовать друг с другом (пользовательский интерфейс и языки программирования и представление знаний) и т. п.
Что это такое – египетская система счисления? Чтобы написать какое-либо число, использовали иероглифы, обозначавшие определенные числа, сумма которых равнялась нужному значению. Специальные обозначения имелись для чисел 1, 10, 100, 1000, 10000, 100000, 1000000. При написании нужного числа каждое обозначение использовалось до 9 раз. Запись в египетской системе счисления шла по возрастанию: вначале единицы, потом десятки, сотни и так далее. Причем писали, как правило, справа налево, но можно было и слева направо, сумма от этого не менялась. Использовалось и вертикальное написание, но тогда отсчет шел сверху вниз.
Объяснение:Использовалось два написания: Иероглифический, в котором употреблялись принятые иероглифы. Иератический, который являлся более схематичным и удобным на практике
var a:array[1..10] of integer; i:integer;
begin
for i:=1 to 10 do begin // Генерируем массив,
a[i]:=random(10)+1; // заполняя его случайными числами от 1 до 10 и
write(a[i]:3); // выводим его
end;
for i:=1 to 10 do begin // Начинаем проверку индексов и
if i mod 2=0 then a[i]:=2*a[i] // если остаток от деления индекса на 2 равен 0,
// т.е индекс чётный, мы удваиваем элемент массива с этим индексом
else a[i]:=3*a[i]; // иначе (т.е при нечётном индексе) утраиваем элемент массива с этим индексом
end;
writeln; //пустая строка, чтобы не спутались массивы
for i:=1 to 10 do write(a[i]:3); //выводим новый массив
end.
Есть вопросы - в ЛС или в комментариях к решению.