Составить программу для вывода в столбик таблицу умножения на 9.

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

i,j: integer;

begin

for i: =2 to 10 do a[i,1]: =i-1;

for i: =2 to 10 do a[1,i]: =i-1;

for i: =2 to 10 do

for j: =2 to 10 do

a[i,j]: =a[i,1]*a[1,j];

for i: =1 to 10 do begin

for j: =1 to 10 do

write(a[i,j]: 3); if j=10 then writeln; end;

end.

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

1)10см=3,937дюма

dpi - точек на дюйм

3,937*1000=3937 - точек

3937*3937=15499969 точек

каждая точка кодируется 2-мя байтами 

всего  30999938 байт

1 мегабайт = 1024*1024=1048576

на картинку  29,56 мегабайта

2) 256 1 байт

200*100=20000 пикселей

1 килобайт = 1024 байта

картинка займет 20000/1024=19,5 килобайта

ps а вообще, каждое нужно писать отдельно