Подсчитать k- количество цифр в десятичной записи целого неотрицательного числа

1)

var

a: array [1..5,1..10] of integer;

i,j,p: integer;

begin

for i: =1 to 5 do 

begin

for j: =1 to 10 do

begin

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

write(a[i,j]: 3);

end;

writeln;

end;

writeln('меняем 1 и последнюю строки');

for j: =1 to 10 do

begin

p: =a[1,j];

a[1,j]: =a[5,j];

a[5,j]: =p;

end;

for i: =1 to 5 do 

begin

for j: =1 to 10 do

write(a[i,j]: 3);

writeln;

end;

end.

2)

var a: array [1..5, 1..10] of integer; i, j: integer; p: real;

begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.

в1+в2=5

(в1+в2+в3)/3=3

(5+в3)/3=3

5+в3=9

в3=4 

значит  так  кролик  это  4 лапы + 1  голова  5(ед) ,  голубь 2 лапы  + 1 голова= 5(ед),    размещаем  сначало  во  все клетки по  голобю + по кролику  получается в каждой  клетке уже по  8 (ед)    остается 3 кролик и  4  голубя        5 елток  тоесть еще по  одному  кролику  и  в 2  оставшиеся по 2  голобу    получается    3 клетки  будет  по 1 голубю и 2 кролика    и 2  клетки  с 1 кроликом и 3 голубями          проверяем    1*3+2*5=13      и    5*1+3*3=14   тоесть  все верное  : )  

  256 цветов = 8 бит/пикс = 1 байт/пикс, 300*200=60000 пикс - общий размер изображения, 4 цвета - 2 бита/пикс, 60000*2=120000 бит - объём видеопамяти, 120000=15000 байт, значит максимально допустимый размер изображения равен 15000 байт, если палитра будет 256 цветов, то размер изображения будет 15000 пикселей, 15000=100х150, значит ответ: 100х150