Складіть програму Правила дорожнього руху, у якій можна визначити, чи не порушив правила дорожнього руху водій, що проїхав відстань S за час t, якщо на шляху встановлено одне із запропонованих обмежень на швидкість: 40 км/год, 60 км/год, 90 км/год. Передбачте, що вводяться іменовані дані.

64*64= 4096- общее количество пикселей.(точек на экране) 

512байт /4096=(512*8) бит\4096=1 бит.то есть получается что на одну точку приходится 1 бит данных. это значит что общее количество цветов на точку   - 2 в степени.   то есть 2 цвета

-,андрей!

-,паша!

-как у тебя дела?

-у меня всё хорошо,а ты как?

-у меня всё отлично. что спросил

-не за что.пойдёшь сегодня гулять?

-да,конечно.а во сколько?

-в 5 часов.

-хорошо.ладно пока.

пока.встретимся на улице

-хорошо.

program sfetafor1; uses graphabc; beginsetwindowsize(640,480); clearwindow(clwhite); setpencolor(clblack); setpenwidth(3); rectangle(200,200,300,400); floodfill(250,300,clltgray); circle(250,230,25); circle(250,290,25); circle(250,350,25); floodfill(250,235,clred); floodfill(250,285,clyellow); floodfill(250,355,clgreen); line(250,200,250,150); line(250,150,100,150); setfontsize(14); setfontcolor(clred); textout(100,125,'красный свет-дороги нет'); end.

var a,b,c: array [1..100,1..100] of integer;

as,bs,cs,i,j: integer;

begin

  sb: =1;

  for i : = 1 to n do

        for j: = 1 to n do

        begin

            if a[i,j]< 0 then sa: =sa+a[i,j];

          if b[i,j]> 0 then sb: =sb*b[i,j];

            if j=3 then sc: =sc+c[i,j];

        end;

    writeln(sa,sb,sc);

end.