приклади програм, які являються середовищем для створення математичних моделей.​

20с7f = 2* 16^4 + 0 * 16^3 +12 * 16 ^2 + 7 * 16^1 + 15 * 16^0=

= 2 * 65536 + 0 + 12 * 256 + 7 * 16 + 15 = 131072 + 3072 + 112 + 15 = 134271(10)

f3ao6/4 - если я правильно понял это условие, то перевести в 10 систему и разделить на 4?

f3ao6 = 15 * 16^4 + 3 * 16^3 + 10 * 16^2 + 0 * 16^1 + 6 * 16^0 =

= 15 * 65536 + 3 * 4096 + 10 * 256 + 0 + 6 = 983040 + 12288 + 2560 + 6 = 997894(10)

997894 : 4 = 249473,5 (10)

81920 бит : 8 = 10240 байт

10240 байт : 1024 = 10 килобайт

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.

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.