Вычислитель знает всего две арифметические операции:
1.Умножить 2.2.
2.Прибавить 1.1.
Первая из них умножает число на 2,2, вторая прибавляет к нему 1.1.
Программа Вычислителя – это набор команд. Например, программа, которая число 33 превращает в 10,10, будет иметь следующий вид: 2122.
Сколько ещё существует различных программ, чтобы число 33 превратить в 1010? В ответе запиши число – количество таких программ.
впервые начинается как военная задумка в середине ХХ века в разгар холодной войны. В 1962 году Дж.К.Р. Ликлайдер, сотрудник Управления перспективных исследовательских проектов Министерства обороны США (на английском языке эта аббревиатура формулируется как DARPA) озвучил мысль о так называемой "галактической сети" из взаимосвязанных компьютеров.
В 1967 году Лоуренс Робертс из Массачусетского технологического института опубликовал план создания такой сети, которую назвал "Арпанет" (на английском – ARPANET, производное от DARPA). В соответствии с ним, два компьютера оказались впервые объединены в сеть в 1969 году.
В 1972 году эта технология была впервые представлена широкой публике на Международной конференции по компьютерным коммуникациям. В этом же году было отправлено первое сообщение по электронной почте.
Первый веб-браузер был создан в 1990 году сэром Тимом Бернерс-Ли. Он назывался WorldWideWeb и позже был переименован в Nexus[3]. Но первым распространённым браузером с графическим интерфейсом был NCSA Mosaic.
Объяснение:
program Array8x5;
var
A: array [1..8, 1..5] of Integer;
i, j, imin, imax, jmin, jmax, s, smax: Integer;
begin
// 1. Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10,10] выведите ее на экран.
Randomize;
for i := 1 to 8 do begin
WriteLn;
for j := 1 to 5 do begin
A [i, j] := Random (21) - 10;
Write (A [i, j] :3, ' ');
end;
end;
// 2. Устроить все элементы матрицы и вывести ее на экран.
WriteLn;
for i := 1 to 8 do begin
WriteLn;
for j := 1 to 5 do begin
A [i, j] := A [i, j] * 3;
Write (A [i, j] :3, ' ');
end;
end;
// 3.Найти минимальный и максимальный элементы матрицы и их номера
imin := 1;
imax := 1;
jmin := 1;
jmax := 1;
for i := 1 to 8 do begin
for j := 1 to 5 do begin
if A [i, j] > A [imax, jmax] then begin
imax := i;
jmax := j;
end;
if A [i, j] < A [imin, jmin] then begin
imin := i;
jmin := j;
end;
end;
end;
WriteLn; WriteLn;
WriteLn ('минимальный элемент А[', imin, ',', jmin, '] = ', A [imin, jmin]);
WriteLn ('максимальный элемент А[', imax, ',', jmax, '] = ', A [imax, jmax]);
// 4.Вывести на экран строку, сумма элементов которой максимальна.
imax := 1;
smax := - MaxInt;
for i := 1 to 8 do begin
s := 0;
for j := 1 to 5 do begin
s := s + A [i, j];
end;
if s > smax then begin
smax := s;
imax := i;
end;
end;
Write ('строка ', imax, ': ');
for j := 1 to 5 do
Write (A [imax, j], ' ');
WriteLn;
ReadLn;
end.