1. Выберите строки, в которых условные операторы на языке Pascal записаны без ошибок.
if x>=10 then y:=y mod x;
if x=y then z:=1; else z:=x*y;
If 0<x<10 then write (‘х - однозначное число’);
If (x>0) and (x<=100) then y:=sqrt(x);
If (x>0) or (10*x)<100 then y:= x*х*х;
if x>0 then y:=sqrt(x); write (‘y=’, y) else write (‘нет ответа’);
2. Выберите строки, в которых условные операторы на языке Pascal записаны без ошибок.
if 10 then k:= k+1;
if x>0 then y:= 100 div x; else y:= 0;
if x<>0 then y:=100/x;
if x<y then S:= x+y; P:=x*y else S:=0; P:=1;
if (x mod y=0) then else writeln(‘no’)
if x>0 or y>0 then k:= k+1 else k:= 0;

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

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

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

program picture; uses graph; const pathtodriver = 'd: \bp\bgi'; {подставьте свой путь к каталогу с файлами *.bgi}var gd,gm : integer; begin detectgraph(gd, gm); {определим драйвер и режим} initgraph(gd, gm, pathtodriver); {проинициализируем графику} if graphresult < > grok then halt(1); {если ошибка, завершим работу} setviewport(0,0,639,349,clipon); {установим область рисования} clearviewport; {очистим область рисования} {для рисования используем следующие процедуры} {circle(x,y,r) - рисует окружность} {moveto(x,y) - перемещает указатель в заданную точку} {lineto(x,y) - проводит линию от указателя до заданной точки,} { указатель перемещает в конец линии} {rectangle(x1,y1,x2,y2) - рисует прямоугольник} {putpixel(x,y,color) - ставит точку в позиции с заданным цветом} {человечек} circle(170, 225, 5); moveto(170, 230); lineto(170, 260); moveto(160, 240); lineto(170, 250); lineto(180, 240); moveto(160, 270); lineto(170, 260); lineto(180, 270); {домик} moveto(230, 270); lineto(230, 320); lineto(290, 320); lineto(290, 270); lineto(260, 220); lineto(230, 270); lineto(290, 270); moveto(250, 320); lineto(250, 290); lineto(270, 290); lineto(270, 320); putpixel(265, 305, white); {дерево} circle(345, 175, 45); rectangle(340, 220, 350, 320); readln; {задердка для просмотра} closegraph; {выход из графического режима}end.

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт