20. Кроме обязательных экзаменов по русскому языку иматема- тике каждый из учеников 9-х классов выбрал для итоговой
аттестации ещё два предмета. На диаграммах отражено коли-
чество учеников, выбравших тот или иной предмет, и соотно-
шение численности учеников в 9-х классах:

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов

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: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.