Для хранения области экрана монитора размером 1024 на 512 точек выделено 128 кбайт оперативной памяти. какое максимальное число цветов допустимо использовать для раскраски точек?

Всего точек в области 1024*512 = 524288

Всего бит под их хранение: 128 * 1024 * 8 = 1048576

Получается, что каждую точку можно закодировать максимум 1048576/524288 = 2 битами.

А с бит можно закодировать максимум 2^2 = 4 цвета.

               цена     незн.   цветик     тороп.    док.
пароход   2         50км      100км      -          60км
поезд       1         40км       20км    10км      30км
самолёт    4         100км      -         200км

50+40+100=190 км проехал незнайка
100+20=120км проех.цветик
10+200=210км проех тороп.            всего 190+120+210+90=610 км
60+30= 90км проех доктор

50х2+40+100х4=100+40+400=540 коп.=5руб 40 коп - нейзнайка
100х2+20=220 коп=2руб 20коп-  цветик
10+200х4 = 810 коп=8руб 10коп - торопыжка
  60х2+30=150коп=1руб 50коп - доктор
всего 540+220+810+150=1720 коп = 17руб 20коп

Точно должно работать для PascalABC.Net (версия 3.2, сборка 1341).
program Task;
var N,i,kol,sum:integer; //По-хорошему, не integer. Потому что мы работаем с натуральными числами, а не отрицательными
begin
read(N);
for i:=1 to N do 
begin
if (i mod 15)=0 then kol:=kol+1; //15 - это НОК(3,5)
end;
while (N<>0) do
begin
sum:=sum+N mod 10;
N:=N div 10;
end;
writeln('Количество чисел, делящихся и на 3, и на 5, равно ',kol);
writeln('Сумма цифр числа N равна', sum);
end.

Пиши, если что-то не работает или не понятно :)