Даны два высказывания: А = “2 х 2 = 4”, В = “2 х 2 = 5”. Очевидно, что А=1, В=0. Определите значение выражений:

Шестой (6) => Второй (2) => Четвёртый (4) => Первый (1) => Пятый (5) => Третий (3)

Объяснение:

Первый: 600 Кбайт

Второй: 200 байт

Третий: 1 Терабайт

Четвёртый: в 10 раз больше, чем Шестой (400 бит) * 10 = 4 000 бит

Пятый: 3 Мбайта

Шестой: 400 бит

Приравняем всё к одной системе, учитывая что:

1 байт = 8 бит

1 Кбайт = 1000 байт

1 Мбайт = 1000 Кбайт

1 Терабайт = 1000 Гбайт

Приравнивать будем к байтам

Первый: 600 Кбайт = 600 * 1000 = 600 000 байт

Второй: 200 байт

Третий: 1 Терабайт = 1 000 Гбайт (это много, дальше можно не считать)

Четвёртый: 4 000 бит = 4000 / 8 = 500 байт

Пятый: 3 Мбайта = 3 * 1000 * 1000 = 3 000 000 байт

Шестой: 400 бит = 50 байт

Теперь расставляем в порядке возрастания (от меньшего к большему)

Шестой: 50 байт

Второй: 200 байт

Четвёртый: 500 байт

Первый: 600 000 байт

Пятый: 3 000 000 байт

Третий: 1 000 Гбайт

Задача №1

var a:array[1..3, 1..4] of integer; 
i,j,min:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do begin 
read(a[i,j]); 
if a[i,j]<0 then min:=a[i,j]; 
end; 
for i:=1 to 3 do 
for j:=1 to 4 do 
if (a[i,j]<0) and (a[i,j]<min) then min:=a[i,j]; 
writeln('Минимальное отрицательное число ',min); 
end.

Задача №2
var a:array[1..2, 1..5] of integer; 
i,j:integer; 
begin 
for i:=1 to 2 do 
for j:=1 to 5 do read(a[i,j]); 
for i:=1 to 2 do begin 
for j:=1 to 5 do 
write(a[i,j],' '); 
writeln; 
end; 
end. 

Задача №3
var a:array[1..3, 1..4] of integer; 
i,j:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do read(a[i,j]); 
for i:=1 to 3 do 
for j:=1 to 4 do 
if a[i,j]=10 then writeln('Номер столбца — ',j,' Номер строки — ',i); 
end.