Автоматическая фотокамера делает фотографии высокого разрешения с палитрой, содержащей 224 = 16 777 216 цветов. средний размер фотографии составляет 6 мбайт. для хранения в базе данных фотографии преобразуют в формат с палитрой, содержащей 16 цветов. другие преобразования и дополнительные методы сжатия не используются. сколько мбайт составляет средний размер преобразованной фотографии?

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.

Объяснение:

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.

1.

Цикл while имеет более широкое применение чем for

Шаг может быть отрицательным

2. for i in range(10,1,-2)

3. Здесь 2 правильных варианта, 1 и 2, так как второй имеет уточнение в виде фразы: "Введите 3 слова через пробел", то я бы отметил именно его.

4. Можно для всех трёх чисел

5. for a in range(1,5):

6. Не совсем понятно, что имеется ввиду под этой "результирующей строкой", если мы в нее хотим запихнуть сумму и произведение через пробел( res = s + res + pr), то выбираем 0 / 1 / " "

7. for i in range(0, 5):

8. Шаг, начальное значение, последнее значение