Составил таблицу, фамилии и номер дома можно выбирать из списка.
165*165/8/1024 = 3,3233642578125
4 кбайт / 3,3233642578125 = 1,2035996326905417814508723599633 бит на пиксель.
2^1,2035996326905417814508723599633 = ~ 2 цвета
А - 0
Б - 101
В - 110
Скажем,
Г - 100
Д - 1110
Е - 1111
1 + 3*3 + 4*2 = 18
Program Natur;
Uses Crt;
Var a, Summa, n : integer;
Begin
Clrscr;
write('N=');
readln(N);
{Цикл с предусловием}
a:=2;
Summa:=0;
while a<=N do
begin Summa:= Summa + a; a := a + 1 end;
Writeln (' Результат первого суммирования:' , Summa) ;
{Цикл с постусловием}
а:=1;
Summa:=0;
repeat Summa:=Summa+ а; а:=а+1 until a>N;
Writeln
(' Результат второго суммирования:' , Summa) ;
{Цикл с параметром} Summa:=0;
for а := 2 to N do Summa : =Summa + a;
<span>Writeln (' Результат третьего суммирования:', Summa); End</span>