Для хранения растрового изображения размером
225×225
пикселей отвели
8
КБ памяти. Каково максимально возможное число цветов в палитре изображения?

картинка длжна быть в папке с программой и быть в формате bmp

uses graphabc;

var n: string; b: picture; s: integer;

begin writeln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.

  держи:

program kk; uses crt; var a: array [1..5,1..5] of integer; i,j: integer;   beginclrscr; randomize; for i: =1 to 5 dobeginfor j: =1 to 5 doa[i,j]: = random(90)+10; end; for i: =1 to 5 dobeginfor j: =1 to 5 do write(a[i,j],' '); writelnend; writeln; writeln; for i: =1 to 5 dobeginfor j: =1 to 5 dobegin  if (a[i,j] > 0) and (a[i,j] mod 3 = 0) thenbeginwriteln(a[i,j],' [',i, ',',j,']'); end; end; end; readkey; end. 

для хранения информации о звуке длительностью t секунд, закодированном с частотой дискретизации f гц и глубиной кодирования b бит требуется b*f*t  бит памяти

f=16кгц=16000гц

в=24 бита

t= 60 с

16000*24*60=23040000бит= 23040000/8/10^6=2,88мб

третий ответ

(делаю масив 10на10)  

program matrix;

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

i,q,b,f: integer;

begin

b: =0; f: =0; q: =1;  

for i: =1 to 10 do begin a[i,q]: =1; end;

i: =1;  

for q: =1 to 10 do begin a[i,q]: =1; end;  

for i: =2 to 10 do

begin

for q: =2 to 10 do

begin 

b: =q-1;

f: =i-1;  

a[i,q]: =a[i,b]+a[f,q];

end; end;

readln

end.