Написать программу : с клавиатуры вводятся два целых числа. вывести количество целых чисел находящихся между двумя введенными числами. сами числа не учитываются. пример работы программы: введите два числа: 1 5 ответ: 3 или введите два числа: 4 10 ответ: 5 ********************************
217
286
Ответы на вопрос:
Замечание: считается, что первое число < = второго числа. var a,b: integer; begin write('введите два числа: '); readln(a,b); writeln('ответ: ',b-a-1); end. пример: введите два числа: 4 10ответ: 5
Есть тут один код на примете {программа свободные колебания кругового маятника}program math_01; {подключение модулей подпрограмм}uses crt, graph; {описание констант}const phi0=30; // начальный угол наклона маятника w0=0; // начальная угловая скорость маятника l=400; // длина нити r=8; // радиус груза light=2; // радиус блика k=0.02; // коэффициент сопротивления m=1; // масса груза xp=320; // координата x точки подвеса yp=10; // координата y точки подвеса g=9.8; // ускорение свободного падения tau=0.4; // шаг по времени{описание переменных}var x, y, xx, yy, w, eps, phi: real; {процедура инициализации графического режима 640x480}procedure opengraph; var driver, mode, errorcode: integer; begin driver: =detect; initgraph(driver, mode, 'c: \bp\bgi'); errorcode: =graphresult; if errorcode < > grok then halt(1); end; {процедура исключения мерцаний изображений}procedure glimmer; begin repeat until port[$3da] and 8 < > 0; end; {процедура вывода изображения маятника на экран}procedure display; begin glimmer; setcolor(black); setfillstyle(solidfill, black); line(xp, yp, round(xx), round(yy)); fillellipse(round(xx), round(yy), r, r); setlinestyle(solidln, 0, normwidth); setcolor(darkgray); line(xp, yp, round(x), round(y)); setlinestyle(solidln, 0, normwidth); setcolor(darkgray); setfillstyle(solidfill, darkgray); fillellipse(round(x), round(y), r, r); setcolor(lightgray); setfillstyle(solidfill, white); fillellipse(round(x)-3, round(y)-3, light, light); end; {основная часть программы}begin opengraph; setfillstyle(solidfill, darkgray); bar(xp-20, yp-5, xp+20, yp-1); phi: =phi0*pi/180; w: =w0; x: =xp+l*sin(phi); y: =yp+l*cos(phi); repeat begin xx: =x; yy: =y; eps: =-k*w/m-g*sin(phi)/l; w: =w+eps*tau; phi: =phi+w*tau; x: =xp+l*sin(phi); y: =yp+l*cos(phi); display; end; until keypressed; closegraph; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
gabbasovilas31.03.2021 20:26
-
atlantisatlantp07ft027.06.2022 20:27
-
Дедушка9103.05.2021 11:41
-
dItCh200107.02.2022 21:42
-
бобр0404.12.2020 00:46
-
hamzmxn6622.05.2021 05:46
-
araruwolf16.02.2020 02:46
-
Yuki1616.05.2021 10:15
-
monsterhi00314.11.2021 15:11
-
2001kirik19.03.2021 19:32
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.