Прокомментируйте каждую строку программы: var {секция описания переменных} number,num1,num2,sum: integer; begin{начало программы} write('введите двухзначное число: '); read(number); num1 : = number div 10; num2 : = number mod 10; sum : = num1 + num2; write('сумма двух чисел — ',sum); end. {конец программы}

Var {секция описания переменных}number,num1,num2,sum: integer; begin{начало программы}write('введите двухзначное число: '); //вывод строки на экранread(number);   //переменная number получает значение с клавиатурыnum1 : = number div 10;   //в num1 целая часть от деления number на 10num2 : = number mod 10;   //в num2 остаток от деления number на 10 sum : = num1 + num2;   //находим сумму num1 и num2write('сумма двух чисел — ',sum); //вывод результата на экранend. {конец программы}

Qbasic: declare function l# (x1#, y1#, x2#, y2#) declare function s3# (x1#, y1#, x2#, y2#, x3#, y3#) cls input "координаты точки а через запятую: ", ax#, ay# input "координаты точки b через запятую: ", bx#, by# input "координаты точки c через запятую: ", cx#, cy# input "координаты точки m через запятую: ", mx#, my# s# = s3#(ax#, ay#, bx#, by#, cx#, cy#) sab# = s3#(ax#, ay#, bx#, by#, mx#, my#) sbc# = s3#(bx#, by#, cx#, cy#, mx#, my#) sca# = s3#(cx#, cy#, ax#, ay#, mx#, my#) eps# = s# - (sab# + sbc# + sca#) eps% = int(eps# * 10000) / 10000 if eps% = 0 then print "внутри" else print "не внутри" end function l# (x1#, y1#, x2#, y2#)     l# = sqr((x2# - x1#) ^ 2 + (y2# - y1#) ^ 2) end function function s3# (x1#, y1#, x2#, y2#, x3#, y3#)     a# = l#(x1#, y1#, x2#, y2#)     b# = l#(x2#, y2#, x3#, y3#)     c# = l#(x3#, y3#, x1#, y1#)     p# = (a# + b# + c#) / 2     s3# = sqr(p# * (p# - a#) * (p# - b#) * (p# - c#)) end function тестовое решение: координаты точки а через запятую: 2,1 координаты точки b через запятую: 15,10 координаты точки c через запятую: 12,4 координаты точки m через запятую: 9,5 внутри