Прокомментируйте каждую строку программы: var {секция описания переменных} number,num1,num2,sum: integer; begin{начало программы} write('введите двухзначное число: '); read(number); num1 : = number div 10; num2 : = number mod 10; sum : = num1 + num2; write('сумма двух чисел — ',sum); end. {конец программы}
244
426
Ответы на вопрос:
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 внутри
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
shik0308200101.04.2021 04:53
-
Amalya1515.10.2020 18:55
-
1BYRYNDYK103.02.2022 06:15
-
temauvarov22827.04.2023 02:55
-
patafeev173411.02.2023 14:24
-
yasya14215.02.2022 04:12
-
авк5кеап6567нг6702.06.2022 00:39
-
Gorki200505.08.2020 15:16
-
Kamila28163708.09.2022 18:35
-
volkego201530.07.2021 17:59
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.