Любимец Софии Бельчонок живет на очень высоком дереве на высоте h метров. Он хочет поднять в свое дупло орех. За день он поднимается вместе с орехом на a метров, а за ночь орех скатывается вниз на b метров. На какой день бельчонок поднимет орех до своего дупла?
193
391
Ответы на вопрос:
1вариант var a,b,c,max,min, sum: real; {описание переменных, они все действительного типа} begin readln(a,b,c); {ввод с клав. чисел a,b,c} if (3*a)< (a+b) and (3*a)< (7*c) then {если первое выражение меньше второго и третьего, то} min: =3*a {переменной min присвоить значение первого выражения} else if (a+b)< (7*c) then {иначе, если 2-ое выражение < 3-го,то} min: =a+b {переменной min присвоить значение второго выражения} else min: =7*c; {иначе значение третьего выражения} if a> c then max: =a+b {если a> c (сравниваем только эти числа, так как число b входит в оба выражения), то переменной max присвоить значение первого выражения} else max: =b+c; {иначе второго} sum: =min+max; {находим сумму min и max} writeln(sum: 1: 2); {выписываем на экране ответ} readln; end. 2 вариант (все тоже самое, просто нахождение минимума и максимума производится в процедуре) процедура описывается всегда до основной программы, в ней используются абстрактные переменные, в данном случае x,y,z,u (локальные переменные), вместо которых при вызове процедуры в основной программе будут даваться конкретные значения введенных ранее переменных. var a,b,c,max, min, sum: real; procedure mn(x,y,z: real; var u: real); begin if (x< y) and (x< z) then u: =x else if (y< z) then u: =y else u: =z; end; procedure mx(x,y: real; var u: real); begin if (x> y) then u: =x else u: =y; end; begin readln(a,b,c); mn(3*a,a+b,7*c,min); mx(a+b,b+c,max); sum: =min+max; writeln(sum: 1: 2); readln; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
МАРИЯpahal23.07.2020 06:22
-
Лесолес15.08.2020 23:41
-
topalinskaya13.12.2021 16:01
-
makssaulin15.01.2022 22:20
-
kerimbaevazarema0315.06.2022 11:29
-
Gregory1512.06.2022 04:47
-
Tanecka250128.10.2022 22:00
-
Kate0001311.03.2022 05:06
-
Boi1129.03.2020 20:01
-
Nikita45Russia30.12.2022 16:40
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.