Как вставить новую строку после всех строк , в которых нет ни одного четного элемента? ( Pascal ABC ). Сам код:
var i,j,k,n,h,p,g,m: integer;
a,x: array [1..10,1..10] of integer;
begin
writeln('Введите цифру, которой хотите заполнить строку ');
readln(n);
writeln('Введите размерность двумерного массива ');
readln(m);
k:=0;
h:=0;
g:=0;
for i:=1 to m do
for j:=1 to m do
read(a[i,j]);
for i:=1 to m do
begin
for j:=1 to m do
begin
if a[i,j] mod 2 = 0 then h:=h+1;
end;
if h <> 0 then k:= k + 1;
h:=0;
end;
p:=0;
h:=1;
for i:=1 to m do
begin
for j:=1 to m do
begin
if a[i,j] mod 2 = 0 then
begin
x[h,j]:=a[i,j];
p:=p+1;
end
else
begin
x[h,j]:=a[i,j];
end;
end;
if p<>0 then
begin
h:=h+1;
for g:=1 to m do
x[h,g]:=n;
h:=h+1;
p:=0;
end
else h:=h+1;
end;
for i:=1 to (m+k) do
begin
for j:=1 to m do
writeln(x[i,j]);
end;
end.

1) 511

2) 584

Объяснение:

1) Максимальным трёхзначным числом в восьмеричной системе счисления является 777

777₈ = 7 * 8² + 7 * 8¹ + 7 * 8⁰ = 7 * 64 + 7 * 8 + 7 * 1 = 511₁₀

2)

  547₈

+

  341₈

---------

  1110₈

7 + 1 = 10   (0 пишем, 1 в уме)

4 + 4 = 10   10 + 1 (который был в уме) = 11   (1 пишем, 1 в уме)

5 + 3 = 10   10 + 1 (который был в уме) = 11   (пишем 11)

Полную таблицу сложения в 8 системе счисления смотри на картинке

1110₈ = 1 * 8³ + 1 * 8² + 1 * 8¹ + 0 * 8⁰ = 1 * 512 + 1 * 64 + 1 * 8 + 0 * 1 = 512 + 64 + 8 = 584₁₀

или

547₈ = 5 * 8² + 4 * 8¹ + 7 * 8⁰ = 5 * 64 + 4 * 8 + 7 * 1 = 320 + 32 + 7 = 359₁₀

341₈ = 3 * 8² + 4 * 8¹ + 1 * 8⁰ = 3 * 64 + 4 * 8 + 1 * 1 = 192 + 32 + 1 = 225₁₀

359₁₀ + 225₁₀ = 584₁₀

На диске будет занято 36 971 928 КБ памяти.

Объяснение:

число точек в изображении:

1877 * 3330 = 6250410 точек

считаем чистый размер файла одного изображения:

6250410 * 24 = 150009840 бит

переводим в байты:

150009840 / 8 = 18751230 байт

переводим в килобайты:

18751230 / 1024 ≈ 18311,75 КБ

считаем, сколько кластеров займёт такой файл:

18311,75 / 8 ≈ 2288,97 кластеров

округляем (всегда с избытком, вверх, т.к. кластер считается занятым, даже если занята лишь его малая часть), и получаем что файл одного изображения займёт 2289 кластеров

считаем, сколько кластеров займут все 2019 файлов:

2289 * 2019 = 4621491 кластеров

считаем, сколько это в килобайтах:

4621491 * 8 = 36971928 КБ

P.S. Именно поэтому файлы изображений обычно хранят сжатыми (чтобы не получилось, что всего то 2 тысячи картинок заняли десятки гигабайт).