Решить : к=1024×512 i=1.5 мб i=? n=?

K=1024х512=2^10*2^9=2^19 пикс.
I=1.5 МБ=1.5*2^10*2^10*2^3=1.5*2^23 бит

i=I/K=1.5*2^23/2^19=1.5*2^4 бит = 24 бит
N=2^i=2^24=16777216 цветов

1) Структура -
Program <имя программы>;
Var: <имена переменных> : <тип переменных>; (Раздел описания. В нём описываются имена переменных и их тип.)
Begin
...(Раздел операторов. Ввод данных, последовательность различных команд и вывод данных.)
End.
2)Оператор присваивания.
Преобразование данных, т.е. присвоение переменной нового значения.
Имеет вид: <Имя переменной>:=<арифметическое выражение>;
Например:
x:=256; (переменной 'x' присваивается значение 256)
x:=a; (переменной 'x' присваивается значение переменной 'a')
x:=x+1; (значение переменной 'x' увеличивается на единицу).
3)хм... как в математике.=)
4)Условный оператор.
Неполная форма: If <условие> then <действие>;
Полная форма: If <условие> then <действие1> else <действие2>;

Program pro;
 uses crt;
 type anketa=record fam:string[20];
 im:string[12];
 voz: 1..18;
 at: real;
 tel: integer;
 end;
 var i,n:integer; student: anketa; f:file of anketa;
begin
clrscr;
assign(f,'C:\PABCWork.NET\St.dat');
reset(f);
Write('Введите количество новых учащихся');
 Readln(n);
For i:=1 to n do Write('Введите Фамилию учащегося:');
 Readln(student.fam);
Write(f,student.fam,' ');
Write('Введите Имя учащегося:');
Readln(student.im);
Write(f,student.im,' ');
Write('Введите Возраст учащегося:');
 Readln(student.voz);
Write(f,student.voz,' ');
Write('Введите Средний бал аттестата учащегося:');
 Readln(student.at);
Write(f,student.at,' ');
Write('Введите Телефон учащегося:');
Readln(student.tel);
Writeln(f,student.tel);
end;
close(f);
readkey;
end.